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I. INTRODUCTION 


A. BACKGROUND 

LISP is often associated with Artificial Intelligence (Al) and its many 
intriguing possibilities. Al has roots that extend deeply into philosophical 
thought and perhaps originated with Hobbe’s view of thinking as 
computation. But, can machines think? Perhaps it's just that engineers 
haven't been able to design them to do it.' Or, maybe, the circuits to make 
such machines are inordinately huge and complex. If this is the case, then 
computers can be used to automate part of the design process and speed 
things up. For example, a silicon compiler is @ program that takes a high 
level description of an electronic circuit's behavior or function and outputs 
a VLSI implementation. 

Up to now though, silicon compilers have traded off chip efficiency for 
design time. Their products don’t compete well with handcrafted chips. Can 
Al techniques remedy this situation? In other words, can the silicon 
compilers be made “smarter”? It seems that the attribute of intelligence, 
which is Al's goal, is needed now, in order to create the basis for creating 
itself. 

This is @ thorny problem which crops up over and over in current Al 


projects and which has plaqued philosophical thought for thousands of years. 


' Richard Hamming. To balance this-out, he adds: “Just because you wish to 
believe that computers can think does not mean that they can.” 


ZZ 


Modern philosophers like Dreyfus, Haugeland, Heidegger, Husser! and 
Wittgenstein take different stances on what constitutes intelligence.¢ 

In the meantime, success in war and peace depends on computers. 
sensors, controllers and actuators melded into smart machines build cars 
round the clock or kill at long range. Additionally, computing machines 
process data used in all phases of decision making. The range of use extends 
from simple word-processors up to expert consultants. 

However, the potential use of computers has only begun to De explored. 
And, though there have been many impressive results from computer expert 
systems, they have been limited to specific domains of expertise. Therefore, 
In order to break through to a new level of processing activity, the Defense 
Advanced Research Projects Agency (DARPA) launched a major Strategic 
Computing (SC) program. (DARPA, 1983, pp 1-18) 

SC has a goal of creating 4 widespread machine intelligence technology 
in the United States. It aims at creating a prototype autonomous land 
vehicle, a pilot's associate and a battle management system. The SC program 
is multi-level and addresses issues from microelectronics to software 
design. However, several areas, such as vision and speech recognition, which 
humans do so effortlessly, are difficult for machines with present 
approaches as indicated in this quote (DARPA, 1983, p. 33): 


Recent progress in developing vision for navigation has been severely 
constrained by lack of adequate computing hardware. Not only are the 
machines which are now being used too large to be carried by the 
experimental vehicles, but current machines are far too slow to execute 
the vision algomthms inreal-time.... 


2 See the bibliography. 


lt is estimated that 1 trillion von Neumann equivalent computer 
operations per second are required to perform the vehicle vision task at a 
level that will satisfy the autonomous vehicle project's long-range 
objectives. At best, current machines of reasonable cost achieve 
processing rates below 100 million operations per second. The required 
factor of 10© improvement in speed will have to be achieved through VLSI 
implementation of massively parallel architectures. 


The creation of new software methodologies for parallel computation 
and a shift of present software structures into VLSI circuits is creating 
more powerful processing structures. These may or may not lead to thinking 
machines, but they will certainly change the nature of computation. 
Paraphrasing Richard Hamming: If you believe computers can't think, you're 
probably right; but, if you don’t do anything about it, you will be left far 
behind. 

Therefore, in order to understand where automatic VLSI design tools can 
be enhanced in order to accelerate the development of new processors, two 


existing silicon compilers were investigated. 


B. SCOPE OF THIS THESIS INVESTIGATION 

The MacPitts silicon compiler has been previously studied at the Naval 
Postgraduate School mainly from the user's point of view. (Carlson, 
1984)(Froede, 1985)(Larrabee, 1985) From these studies two things became 


evident: 
(1) The user interface to MacPitts can be made more accessible 
to the systems engineer. 


(2) Changes to the compiler require a study of the LISP code it 
is written in. 


The first problem is addressed by creating a flowchart interface in 
which the user graphically creates state diagrams that are converted for 
the user into MacPitts programs. (weist, 1986) 

The second issue is the subject of this thesis: an examination of Lincoln 
Laboratory's LISP based Layout Language (L5) and its relation to MacPitts. 
LS is 4 LISP based language used by MacPitts to compile Very Large Scale 
Integrated (VLSI) circuits automatically. LS is also used by the Lincoln 
Boolean Synthesizer (LBS), a Complementary Metal Oxide Semiconductor 
(CMOS) compiler of arbitrary boolean expressions, to generate combinational 
logic circuits. 

Both of these compilers have many interacting programs linked together 
to execute automatically. Alteration of this behaviour requires that the 
programs, composed of LS and LISP code, be modified. 

Therefore, the main questions examined in this thesis are: 

e How is LS created? 
@ How is LS used? 
The answer to these questions is given by: 
@ Introducing LISP; 
e Covering LISP extensions needed to create LS (lincoln.)); 
@ Presenting L3; 
e Grouping several programs into a “compiler”; and, 
e Modifying a MacPitts functional unit. 

LISP fundamentals are covered in Chapter II. The ideas of functional 

programming and other general concepts are discussed. After this overview, 


the presentation covers LISP functions and usage. Additionally, a look is 


taken at debugging tools available in the Franz Lisp programming 
environment. 

In Chapter II] a program that contains many of the basic functions used 
in LBS and MacPitts, lincoin.l, is presented. The key concept in lincoln.| is 
the data structure generation macro defstruct. This macro is an example 
of a LISP function that creates other LISP functions. It is the method used 
throughout both compilers to generate easily manipulated data structures. 

From the discussion of extensions made to the LISP language in lincoin.1, 
Chapter IY moves on to LS. The primitive layout objects, items, and their 
data structures are shown. The functions which are used in LS to generate 
complex structures out of these basic items are illustrated. The 
interrelationship of LS with two other hierarchically organized formats, 
Caesar and CIF, is also covered. 

After this, Chapter V deals with linking a group of LISP programs into an 
environment which the user can run as an integrated system. The examples 
used are the LBS and MacPitts top-level functions. These functions control 
program execution. 

In Chapter VI a modification to a MacPitts functional unit, an organelle, 
1s described. The material in this chapter covers enough of MacPitts to 
enable the user to experiment with changing MacPitts’ data-path. However, 
once these basic ideas are understood, then other portions of the compiler 
can also be changed. 

The last chapter, Chapter VII, presents thesis conclusions and contains 


suggestions for future work. 


Appendix A contains a description of alignment problems caused by 
Incorrect CIF plotting or organelle specification; and, a sketch of how to 
experiment in the MacPitts environment. 

In summary, this thesis covers LS, a flexible idiom for procedurally 
creating VLSI circuits, and shows how understanding LS makes MacPitts and 


LBS accessible for modification. 


I]. THE LISP ENVIRONMENT 


LISP is a flexible language with a rich set of programming tools. It can 
be run interactively or it can be compiled. LISP allows interpreters for 
other languages to be easily written. For example, both Macpitts’ and LBS’s 
interpreters are LISP based. Tne following quote summarizes some other 


reasons for learning LISP (Hofstadter, 1985, p. 450): 


Beginners in Lisp encounter... fundamental issues in computer science 
that even some advanced programmers in other languages may not have 
encountered or thought about. Such concepts as lists, recursion, side 
effects, quoting and evaluating pieces of code... are truly central to the 
understanding of the potential of computing machinery. 


This chapter examines these ideas, shows LISP’s applicative [functional] 
nature and briefly covers LISP’s lexicon. The last chapter section is an 


introduction to useful LISP program development tools. 


A. LISP: A FUNCTIGNAL PROGRAMMING LANGUAGE 

This section covers functional programming and introduces a concise 
language for talking about program syntax [Backus Naur Format]. A look is 
taken at LISP’s basic functional form [lambda notation] and the issues 
associated with passing parameters into functions. The problem of variable 
scoping is also covered. Finally, a brief comparison of iteration and 


recursion is given. 


1. Functional Programming 
/inperative languages are Dased on directing control through a series 
of assignment statements. LISP on the other hand applies functions to their 
arguments. (MacLennan, 1983, p. 345) 
A function takes a combination of arguments and assigns a unique 
value to it. A functions] or opplicetive \anguage' is built upon a simple 
idea that is well illustrated in this quote (Hofstadter, 1985, p. 452) - 


& programmer's instinct says that you can cumulatively build a system, 
encapsulating all the complexity of one layer into a few functions, then 
Building the next layer up by exploiting the efficient and compact 
functions defined in the preceding layer. This hierarchical mode of buildup 
would seem to allow you to make arbitrarily complex actions be 
represented at the top level by very simple function calls. 


“This spirit of functional application pervades both MacPitts and LBS. 
But, before looking at LISP’s functions, a language for talking about LISP, 
Backus Naur Format, is introduced. 
2. Backus Naur Format (BNF) 
BNF is a concise set of symbols for describing the syntax of computer 
languages. Its key idea is that the description should look like the language 
it’s talking about (MacLennan, 1983, pp. 166-173). A terse set of BNF 


symbals is given below: 


e The ~<“ and” >” indicate syntactic categories. For example, <integer>, 
<LISP form>, etc.. 


e The “ := ” means ” is defined as *. 


' Haugeland, 1984, pp. 125-164 gives a very cogent explanation of 
several computer architectures [LISP included]. 
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@4 straight line, “| ", stands for” or" 

@ Square crackets, “[" and “]", indicate optional perameters. 
@Anastersk, "* "1s equivalent to” a sequence of zero or more °* 
@eA°*”" means “ § sequence af ane ar mare ° 


® Braces.“ i“ and“ } “ are used to group syntactic classes and sau “ 
sequence of <class,>s or <classe>s, etc”. 
e Many Lise symbols represent themselves. For example the LISP orang. 
sign" -> “or LISP parenthesis “{" ana" j"- 
Consider an exarnple that creates a class of <other characierss, 
<other character? ss +]-|_|@/]!]271e@/*/@ 
nother words, the <other character> 


are. +or-or Jor % or i, ste. 


cr 
te 


anowier class 1s <alphanurnericss, defined as follows: 
<alphanurneric> = <letter> | <dig 
Therefore, an <alphanurneric> is either @ <letter> or a <digit> «4 
special LISP object, an atom, is defined a5 4 sequence of previousiy deiined 
gojecis in the foligwing manner. 
<atom> x= {<other character> | <alphanurnericos? | G 
An atom is a sequence of one or more <other characters or 
<alphanurmericys; or, Q. The empty atom, Q, is called afl. [Hasemer, 1534, 
fp. 5] [Refer also to Table 2.1 and Figure 2.2 in Section 1.6.1.6] Atoms are 
basic LISP Building biocks. 


2 "-> "is Franz Lisp’s prompt sign.” (" anc" ) “ respectively start and 
stop LISP’s interpretation of an instruction. See Section 1I.B.1.a for an 
evolanation. 
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Triare if anotner important LISP object, 4 dist, Gefined Beiaw: 

<list>? cs (<atorn>*) | Usatarns | <iists)*)} 

4 ist is a left parenthesis followed with Zero or rmiore ators or 
lists, closed off with a right parenthesis. Notice that this is 4 recursive 
definition: a <list> is defined in terrns of itself. Exarnples of lists are: 

(), (a}, (a D (Cc d) e). 

ote that (, ail, is both an atum and a list. 

BNF is used throughout this thesis to describe LISP syntax. Lisr’s 
basic functional format, <laritda function>, carn now be analyzed. 

3. Lambda Functions 
One method for writing functions in LISP is with lambda notation. iFor 
other-furiction definition forrnats see Section 11.0.2] Pertiaps the easiest 
way to understand lambda notation is with this quote showing its nistory 

(Touretzky, 1964, p. 36): 
Lambda notation was created by Alonzo Church, @ mathematician at 
Princeton University, as an unambiquous way of specifying functions, their 
inputs, and the computations they perform. In lambda notation, @ function 


that added 3 to a number would be written A%(3 +x). The «A 1S the Greav 
letter lamoda. 


3 Refer to Sections 11.0.1 and 11.0.3.b. A list can also be viewed in this 
hight: 
<list> 2 (khead><tail>) 
<head> = { <atom | <list> } 
ec iyeeenc |S 


For example: 


Q has <head> = mil and <tail> := nil 
(a) | has <head> = @ and <tail> := ail 
{a b (c d) @) has <head> -= a and ctail> = (b (c d) e) 


e 8 - «© 


Ko 


John McCarthy, the originator of Lisp, adopted Church's notation for 
specifying functions. The Lisp equivalent of the unnamec funciisn 
a ee 


ice ; ah 4 4 
ee 2 eG ee en 


(LAMBDA (4) (PLUS 3 43} 


A function F(x,y) = 3x + y2 would be written ACx,y)(3x + y4) In lambda 
notation. In Lisp itis written 


(LAMBDA (XK VUPEReICh ies 4) (ides or) 


Lambda notation creates functions in LISP with this syntax: 


<lambda function? ::= 
(lambda (<argument>*)<LISP farm>} 


LISP form> <= fzatame | <list> !+ 
<argument> ::= <atom> 


~& lambda function is used | aee/7eg to parameters] to obtain = value 


with this format: 


value> i2 -> (lambda function><parameter>*i-CP:4 
cyalue> = <LISP form 
<parameter> «= <LISP form> 


Therefore, ta apply the function F(x,y) = 3% + ye with x22 and y=5 In 
LISP, the user types: 
-> (Vlamoda (x y}(plus (times 3 #)(times y y3}) 2 Sick: 
:; (iambda (« yiplus (times 3 xi(times y y)}) <x> <y>) 


Cc —_ 


“9 +nis function is equivalent to: 
Se See ee ene 
15 


That ig to say, that the value resulting from F(2,3) is equal ta 1°. 


+ <CR> 1S an abbreviation for the action of hitting a “carriage return’ 


> LISP ignores anything on a line after a semicolon; therefore, one or 
more semicolons © ; “ are used to insert comments into LISP orocrams. 


RO 
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The lambda function format can be named by using the LISP primitive 
def® in this manner: 


<function-name> ::= 
-> (def <function-name> <Jambda function>) <CR> 
<function-name> ::= <atom> 


A function created with def is applied to its argument's parameters 
by using its name as follows: 
<yalue> ::= -> (<function-name><parameter>*)}<CR> 
By naming the function, its usefulness is increased. Instead of typing 
the unwieldy lambda form each time the function is applied, the user simply 
types in the function's name. Consider F(x,y) = 3x + y2 defined as a LISP 
function named quadratic: 


-> (def quadratic 
:- <function-name> ::= -> (def <function-name><lambda function>) 
(lambda (x y) 
(plus (times 3 #)(times y y)))}}<CR> 
:- LISP returns <function-name>: 
quadratic 


This function, quadratic, is applied Dy using its name with 
parameters: 


-> (quadratic 2 3)}<CR> 
;; (quadratic <x><y>) 
13 


-> (quadratic (quadratic -1 2)(quadratic 2 3)}<CR> 
-- (quadratic -1 2) := 1 & (quadratic 2 3) := 15 


-- (quadratic 1 15) := 228 
228 


6 See Section 11.C.2 for another method for defining functions [ defun }. 


ys 


The following question now arises: If functions are nested and values 
passed from function to function, then how are the values of these variables 
being controlled? That is to say, the above computation assumed this 
structure: 


(quadratic <x><y>) 
/ \ 
(quadratic <x><y>)(quadratic <x><y>) 
| 
-1 2 5 


Figure 2.1 Passing of Values in Nested Functions 


But, why not some other method? The next section examines 
established conventions for passing values and calling variables. 
4. Variable Scoping 
‘The context in which a variable is called can in fact affect its value. 
The method used to call up a variable and limit its scope will determine the 
value that is used. To examine these ideas a few definitions are needed 
(Rosenberg, 1984, pp. 62, 165, 460, 501, 570): 


call by reference: a subroutine or procedure call where the addresses 
of the parameter’s storage locations are passed to the subroutine. 


call by value: a subroutine or procedure call where the actual values of 
the parameters are passed to the subroutine. 


dynamic: occurring at the time of execution. 


scope (of a variable): the portion of a computer program within which 
the definition of the variable remains unchanged. 
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static variable: a variable that is allocated before execution of the 
program Degins and that remains allocated for the duration of execution of 
the program. 


variable (3)()AA) 
(1) in computer programming, a character or group of characters that 
refers to a value and, in the execution of a computer program, 
corresponds to an address. 


(2) a quantity which can assume any of a given set of values.... 

Three more terms need to be defined: A found verveh/e is one of a 
function's formal parameters [function's arguments]. A g/eee/ vaerrab/e has 
its value set at the top level. A “/ree verveh/e is not a bound variable, but its 
value is used or changed by a function. (Wilensky, 1984, pp. 39-40) Now that 
the terms have been defined, the concept of variable scoping can be 
examined. 

There are two basic variable scoping techniques “-- static scoping 
and dynamic scoping. In static scoping (also called lexical scoping) a 
procedure is called in the environment of its definition; in dynamic scoping 
a procedure is called in the environment of its caller.” (MacLennan, pp. 112- 
113, 1983). In other words, (MacLennan, p. 109, 1983): 


@ In dynamic scoping the meanings of statements and expressions are 
determined by the dynamic structure of the computations evolving in time. 


e in static scoping the meanings of statements and expressions are 
determined by the static structure of the program. 


Franz LISP is a dynamically scoped language.’ Therefore, bound 
variables which are changed during a function call are restored to their 


original values upon exiting the function. If calls to other functions are 


7 COMMON LISP is a lexically scoped language (Winston, 1984, p. 54). 


Zo 


called function. However, changes to a free variable are not restored. If the 
free variable has the same name as a global variable, then other instances 
of the global variable will also change! (Wilensky, 1984, pp. 40-41 )(Winston, 
1984, pp. 54-55)(MacLennan, 1983, pp. 284-288) 

An additional consideration, besides variable scoping, is the method 
used to pass parameters to a function. This is done in either of two ways: 
CEl/ by velue or Cali by reference. LISP uses Ca// Ly veltie. 

To explain the difference in the two methods, recall that functions 
have a list of arguments [formal parameters or dummy variables]. These 
arguments correspond to a list of actual parameters when the function is 
applied. In other words, the arguments are bound to the actual parameters. 
In most programming languages the user can assign values to symbols and 
these symbols can be used as actual parameters in a function. The issue now 
becomes one of passing the symbol’s value or address. In cé// fy reverence 
the address of the actual parameter is bound to the argument. ¢a// ay value 
only copies the actual parameter’s value: control over the actual parameter’s 
value is not handed over. (MacLennan, 1983, pp. 53-58) 

The difference in the two methods can be seen by examining the 
effect of using a free variable, “free”, whose value has been set at 2 
(Winston, 1984, p. 55): 


-> (setq? free 2)<CR> 
;; The global variable “free” is set to a value of 2, e.g., 
» free := 2 

2 


8 See Section 11.C.3.a for methods of binding symbols in LISP. 


26 


-> (defun? test (bound) 
(setq bound (1+ bound)) 
-- Bound := bound + | 
;; The symbol “free” is not bound within the context of test. 
(+ bound free))<CR> 
;; the result := bound + free 
test 


-> (test free}<CR> 
;; First, “bound” assumes “free’s” value: bound := free’s yalue := 2 
;, Second, bound := bound + 1 := 2+ 1:=3 
;; Third, the result := bound + free :=3+2 =5 
2 


In contrast if LISP used ¢e// Ly reference : 
(1} bound ::= free := 2 
~ (2) “bound” increments: bound := bound + 1 := 1+2=3 
(3) since bound ::= free, “free” also becomes 3: free := 3 
(4) the result is: bound + free := 3+3=6 | 
In summary, Franz Lisp resolves the problems of variable context and 

scoping by using call by value and dynamic scoping. This issue can be 
extended to functions. Next, consider how functions refer to other functions 


or to themselves. 
9. Recursion and Iteration 
LISP allows functions to refer to themselves. This approach, Known as 
recursion, is briefly introduced in this section.!2 Suppose a function that 


raises a given integer base to a nonnegative integer power is desired. Two 


? defag is an alternate method of defining functions, see Section II.C.2. 


10 A more in depth discussion of recursion is given in Section II.C.4. 
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possible algorithmic approaches are: 
(1) Iterative: 
(a) Set the result to 1: 


(b) set the index to the power; 


(c) iterate, by multiplying the result with the base and reducing 
the index by 1; and, 


(d) stop when the index reaches zero. 

The iterative algorithm divides up an operation into increments which 
are repeated a specified number of times. In recursion, a function calls 
itself until a basis condition is reached. The key to writing recursive 
functions is to ensure the basis condition is well formulated, for example: 

~ (2) Recursive: 


(a) If the power is zero give a result of 1. [BASIS] Otherwise, 


(b) multiply the base with the result of applying this algorithm 
to the original base and the power reduced by one. [RECURSION] 


In an imperative language iteration is commonly used, whereas in an 
applicative language recursion often seems more natural (Gray, 1984, p. 51). 
The above example shows how an iterative problem can be stated 
recursively. But, although iteration and recursion are theoretically 
equivalent, it’s not always trivial to convert from one to the other. 
(MacLennan, 1983, p. 394) 

More will be said about iteration and recursion in Section !1.C, in the 


meantime, a discussion of how Franz Lisp is used is now presented. 
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B. INTERPRETED, COMPILED OR DUMPED LISP 
The Interpreter allows interactive running of LISP programs and provides 
an effective environment for debugging LISP code. At the same time, LISP 
also provides 4 compiler which can considerably speed up program execution 
for large code segments. This section examines the different ways LISP can 
be run and covers very basic input and output. 
1. The LISP Read-Eval-Print Loop: interpreted LISP 
In Section 11.4.1, several examples showed how the LISP interpreter 
“reads” and “evaluates” input, and then “prints” out a result. This read-eyal- 
print loop is discussed in this section. The two major participants in this 
cycle, eval and quate, are also covered. 
“a. The LISP Prompt ~->~, Start" (~ and Stop “3° 
To obtain “ -> “, so that <LISP form>s with “ (~ and ~~ can run, 
the Franz Lisp interpreter is invoked by typing lisp after the UNIX® prompt: 


® lisp<CR> 
Franz Lisp Opus 38.69 
-> 


The ~ -—> “ is a prompt sign which means that inputs will be 
“evaluated” or “interpreted”. An open parenthesis, ~ ( °, instructs the 
interpreter to do whatever follows, and a closed parenthesis, ~ } “, tells the 
interpreter to stop doing it. (Wilensky, 1984, p. 2)(Hasemer, 1984, p. 6) 
Therefore, if the user inputs: (plus 1 2 3) <CR>, the ° (° starts the LISP 
interpreter “plusing” 1 with 2, then with 3, and stops “plusing” upon 
reaching ~ ) ~. For example: 


-> (plas 1 2 3) <CR> 
G 
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This cycle of reading inputs, evaluating them and returning 4 result 
is referred to as the LISP read-eval-print loop. (Hasemer, 1984, p.4) But 
what does it mean to say that the interpreter “evaluates” <LISP form>s? The 
next section answers this question by describing the function used by the 
LISP system to obtain the results of a <LISP form> input after the prompt 
sign. 

b. A Universal LISP Function: egal!! 
When the interpreter “reads” input, it is applying a function, egal, 
which can interpret all LISP functions. The evaluation functions syntax is 
illustrated below: 


<yalue> = —> (epal <LISP form>) 
<yalue> := <LISP form 


The email function operates as follows (winston, 1984, p 34): 
(1) lf the form is a <numberm: return the <number>. Otherwise, 
(2) If the form is a <symbol>: return its <yalue>. Otherwise, 
(3) If there is a <special symbol>: it’s an exception. Otherwise, 
(4) Apply ewal to the <list>’s tail,'2 then 
(5) Apply the <list>’s head to the <list>’s evaluated tail. 
Eval assumes the hierarchy of LISP objects (Winston, 1984, p.21) 


shown in Figure 2.3 below: 


''When John McCarthy was developing LISP he proved that there is a 
universal LISP function, egal, which can interpret any LISP function. This is 
similar to the universal Turing machine that can simulate any other Turing 
machine. (Chamiak, 1985, p. 48)(MacLennan, 1983, p. 343) 


12 Refer to Sections I1.A.2, 11.C.1 and 11.C.3.b. 
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<LISP form>s!5 or 


<expression>s 
if \ 
<atom>s <listos 
/ \ 
<numberms <symbol>s 


at : 
<floating-point> <integers 


Figure 2.2 The LISP Object Hierarchy 
Examples of these LISP objects are shown in Table 2.1: 
TABLE 2. 1 
EXAMPLES OF LISP OBJECTS 


LISP Objects Example LISP Code 

e <LISP form>s (plus 1 2), 1.23, (* (plus 1 2) 3),... 
e <list>s (), (((q a)(e) 1 2)), (plus 1 2),... 

e <atom>s 1,1.1,8, peman,... 

e <symbol>s @oman, wo223,2nerr,... 

@ <special symbols a es eos aE? 


It seems that LISP is always searching for a value. The next 
section answers the question: “How does it accept something literally?” 
c. Eval’s dual: quete or‘ ~ 
When evaluation is undesirable it is inhibited with quete or its 
abbreviated form, a quote mark. The ~ * ~ is a <special symbol> that stops 
evaluation. This idea is evident from the syntax: 


<LISP form> ::= —> {(quete <LISP form>)| ‘<LISP form>}<CR> 


13 Refer to Sections 11.4.2, 11.4.3 and 11.C.1. 


14 “\" [backslash] is an escape character. ~ ,” and “ ,@ ~ are described in 
Section Hl.A.1.2 
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A few examples illustrate the effect of qaete or ¢‘ : 


-> (quete (a b))<CR> 
:-: (quote <LISP form») 
(a b) 


-> ‘(a b)<CR> 
(a b) 


-> (a b)xCR> 

If “Ca by is input without first defining “a” as a function, then 
;; an error results. The error is cleared using the reset function. 
Error: eval: Uadefined function a 

<1>: (reset)<CR> 


Tyo examples now show how the quote mark is used and the error 


that results when a variable is evaluated without having been given a value: 


-> ‘australaathropus<CrR> 
australanthropus 


-> a<CR> 
Error: Undefined variable: a 
<>: 


The variable “a” doesn't have a value; therefore, the LISP system 
complains with an error message, leaves the standard read-eval-print loop 
and enters a debugging !oop. The ~ <1>: ° is the LISP error prompt. The user 
can continue typing expressions. Or, to remove the error, simply reset the 
system as follows (wilensky, 1984, p.6): 


<1>: (reset)<CR> 
[Return to top level] 
-> 


BZ 


However, there are errors where execution might not be stopped by 
the interpreter'y. in that case, LISP can be stopped with an interrupt. The 
first control C [ *€ ] sets an interrupt flag: the system waits for a “safe 
Place to exit. The second “€ forces all system calls to compiled code to 
check the interrupt flag; and finally, a third *€ causes an immediate 
interrupt. (Foderado, 1983, Section 10.6) Here is an example: 

alk *E 
Interrupt: “C 


Break nil 
<1>: 


An interpreter is a useful interactive tool; however, to handle 
large programs and obtain efficient object code, a compiler is needed. 
2.- Compiled LISP 
Compilation of LISP programs increases their execution speed. In 
order to keep compilation dependencies among several programs 
Straightened out, a makefile is used. In addition, a makefile can join 
together several programs so they can run as a large unit. 
a. The Compiler 
The Franz Lisp compiler is invoked from the UNIX® C-Shell with 
the following command (Foderado, 1983, Chapter 12): 
% liszt [-<option>*] <filename> 
There are several options, among which, q [compile in quiet mode} 
and = [create a cross reference file] are very useful. The compiler can be run 


with several options at one time as follows: 


'S Richard Hamming has jokingly said that perhaps computers do in fact 
show free will, it’s just that people always call a repairman when they do 
it. 
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% liszt -qz lincala.1'6<CR> 

This command will create a lincoln.o {object code file] and 
lincoln.x [cross reference file]. To use the cross reference file, it must be 
filtered through the program Ixref: 

% luref lincala.2 > lincela-z-ref<CR> 

The “> * is used in UNIX® to redirect output, in this case, the 
human readable cross reference file is placed in lincoln-x-ref. This file will 
show all the functions in lincoln and where they are used. 

lf functions from one program are used in another, this can then 
present a problem during compilation. How can these interrelationships be 
effectively managed? A makefile is the answer. 

~ 6. Compilation Dependencies: Makefile 

Large programs such as LBS or MacPitts are subdivided into 
functional parts; however, between these subprograms there exist 
dependencies. For example, lincoln.! contains primitive functions used by 
L5.1 [the layout language] and LS.] is in turn used to describe basic circuit 
layouts in organelles.] [functional units]. If there are twenty subprograms 
each with dependencies, then making changes can become a major chore. 
UNIX® has a utility to ease this difficulty: makefile. A makefile consists of 
dependencies, prerequisites and actions with this syntax: 


<makefile> ::= {<dependent result> : <prerequisite result>* 
<action>}* 


'6 linconl.1 is a file containing many useful lisp functions used at MIT 
Lincoln Laboratories, see Chapter III. 
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Consider the following example makefile composed of four 
dependent results [L5.a@, work, Cleam, and dec). The desired results are 
separated by a colon from their prerequisites and placed on the same line. 
Notice that two results, cleam, and dac, have no associated prerequisites. 
The next line contains the actions to create each result. Assume that all of 


this code is in a file named ~ Makefile ~ in the users directory which 


contains L5.] and lincoln.!. Makefile’s contents are now presented, and 
described immediately afterwards [the explanation continues into Section 


11.8.3: 
L5.a: 15.1 lincoin.s 
liszt -qx LS 


werk: L5.e lincola.e 
echo!’ “(eval-whea (evai)\'® 
(lead ‘linceln.s)(lead ‘1L5.0)\ 
(dumplisp!? work)(exit))° | lisp 


clean: rm -f L5.a lincola.s 


'? The eche command prints out its arguments. The function, eval- 
when, tells the LISP compiler to evaluate the expressions that follow, 
instead of compiling them. (Wilensky, 1983, 261) 


18 The backslash ~ \ ° is an escape character, therefore the next line is 
treated as a continuation. The “| ~° stands for “pipe”, i.e., the results of the 
first process are passed on to the next process. 

'9 Saves the LISP environment in an executable file named “work™. Typing 
“work” will then recreate the LISP system as it was running when It was 
dumped. : 


20 Forced removal of files. 
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doc: 
echo ° print L5.1 IIncoln.!| Makefile ° | csh 


This makefile can compile L5.1, and ensure that the dependent files are 
updated before doing it, by using the UNIX® make command: 


* make L5.a0<CR> 

* The <prerequisite result> is lincoln.o, so this is created first: 
f/usr/uch/liszt -qz lincoln 

# The liszt compiler takes the lincoln source file and compiles 
* it; however, there are several warnings that can be ignored. 
Warning: lincoln.!: rotate: ... 

* Now that all the prerequisites are complete, L5.0 is compiled. 
*/usr/ucb/liszt -qz LS 

* When everything is done the UNIX® system is restored. 


In a similar fashion to print out the makefile and source code files: 


*% make doc<CrR> 
#21 Pipe the print organelles.] etc. command to the UNIX® shell. 
* This causes these files to be printed out. 

echo " L5.!1 lincaln.! Makefile” | csk 
* Notice that the <action>s are printed out. In this case the user 
* would go to the line printer and print up copies of these files. 


Or, pernaps, to remove undesired object code files and list the files: 


* Make clean<CR> 
* Remove files ending in “.o” or “.x” and then list the directory 
* contents on the terminal. 


rm -f *.a 
rm -f *.x 
Is 
* The “.o° and *.x” files are removed and a directory listing given: 
DIR REAB_ME_FIRST chip.l 


21 The UNIX® shell ignores anything after ~ * ~, therefore this symbol is 
used to insert comments. 
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Examples array.! top.! 


INSTALL bin extract.l 
L5.! c-routines.c sim.i 
Makefile 

* And finally, back to the UNIX® prompt. 


& 

LISP files which are dependent on each other can be organized using 
a makefile. They can also be individually loaded into the interpreter and 

saved as one executable file using dumplisp. 

3. Interpreted and Compiled LISP: dumplisp 

In some programming lanquages disparate programs can be combined 
to form @ working unit using a linker. In LISP this can be achieved by 
creating an “environment” that contains all the programs. This is what the 
werk section of the example makefile created in the previous section does: 


*% make wark<CR> 

* Execute the actions under the “work” heading of this makefile. 
echo “(eval-when (eval)(lead ‘lincoln.a}(load ‘L5.3) 

(dumplisp werk)(exit))" | lisp 

* Load lincoln.o, L5.0 and organelles.o into LISP, dump this envi- 

*ronment in an executable file named "work" and then exit LISP. 
Franz Lisp, Gpus 33.69 

-> [fas! lincoln.a] 

3; fas] is the function LISP uses to load object code files. 

-> [fasi L5.a] 

> 


In summmary, an executable file, work, has been created. Typing 
work as an imperative command places the user in LISP with the functions 
in LS and lincoln also available. 


% wark<CR> 
-> 


Oe 


This is a LISP environment that contains lincoln and LS. If the user 
wants to load another file into this environment the lead function can be 
used: 


-> (load ‘defstructs.a)<CR> 
-: (load ‘<filename>) 
-- The function LISP uses to load object code is fasl. 
[fasi defstructs.o] 
t 


-> (load ‘tep.1)<CR> 
;; Source code can also be loaded into the interpreter. 
[load top.!] 

t 


To save all these changes in the LISP enviranment: 


-> (dumplisp 'temporary)<CR> 
;; Dumping LISP into “work” will result in an error since work is 
;; the process that’s running LISP. 
nil 
To leave LISP and return to UNIX® - 
-> (esit)<CR> 


*” mv temporary work<CR> 
* “my” moves the file “temporary” into the file ‘work’. 


Another approach for creating a LISP environment is to use a _lisprc 
file. The LISP interpreter always checks the user's directory to see if a 
lispre file with instructions exists. An example .lisprce file that loads 


lincoln.a, LS.o and organelles.a into LISP is: 


<2 The function iaclude also places files into LISP. Unlike lead, it does 
not evaluate its argument.[Foderado, 1983, p. 6-4 |[Wilensky, 1984, p. 282] 
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* cat .Uspre<CR> 
* The UNIX® “cat” command dumps the file “isprc” onto the 
* terminal screen. 
(eval-when (load eval) 
(load ‘lincoln.o) 
(lead 'L5.0) 
(load ‘arganelles.a) ) 


Since LISP automatically loads the .lisprc file [in this case all that 
the file contains is one large eval-mwhen <LISP form>], then the result is 


that all three load functions are evaluated and the files loaded in. 


® lisp<CR> 

* The lisp interpreter is invoked and the .lisprc file is loaded. 
Franz Lisp Opas 33.69 

-y 


~The user is now in LISP with the three files loaded. The main 
difference between using this method and dumplisp is that a dumped file 
usually requires at least a megabyte of storage, whereas loading several 
files using the .lisprc file takes a short while.29 In Chapter V.A and Appendix 
A.B it will be seen that the MacPitts and LBS environments can be invoked by 
typing their respective names without any arguments. For example: 


*® macpitts [or Ibs] 
usage: macpitts <filename> [<optians>] 
-> 


A closer look is now taken at how files are input into LISP and how 


functions can be output into files. 


25 A compromise between these two approaches is to use the autorun 
option when compiling a LISP file [e.g., % liszt -r <filename>]. This creates 
an object file which has a small piece of bootstrap code attached. The 
object file can then be run as an executable file. (wilensky, 1984, p. 264) 
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4. Basic Input and Output [1/0] 
Large programs are usually stored in files and loaded into LISP using 


load.24 They can be edited using the vi editor by calling the LISP functions 


vior vil: 
-> (pi2> top.I)<CR> 
;; Places the user in ¥Y1 editing the file top.] and when the user 
>; finishes returns back to LISP. 
t 


-> (vil organeliles.1)<CR> 
;; Places organelles.) into Yl and when editing is complete, loads 
;; organelles.) into LISP and returns nil. 
[load arganeliles.)] 
nil 


Functions that have been created in the interpreter can be output into 
a file using the pretty print, pp, function. (Foderado, 1983, Chapter 5) 
(Wilensky, 1984, pp 134-137) Part of this function's syntax is shown below: 


<LISP form> ::= 
-> (pp [CF <file-name>)] {<function-name> | <symbol>}}<CR> 


For example, to pretty print out the m-te-the-n function: 


-> (pp m-to-the-n)}<CR> 
:; Qutput the function m-to-the-n to the screen. 
(def m-to-the-n 
(lambda (m a) 
(cond ((zerop n) 1) 
(t (times m (m-to-the-a m (1- an)))) ) DD 


24 See the previous discussion on interpreted LISP. 


2) The MacPitts version of LS has a wi function defined in it. However, it 
automatically loads the file into LISP. 


The pretty print function can also be used to send <LISP form>s to a 
file in the following fashion: 


—> (pps (F temp.!) m-to-the-n)j<CR> 
;; Qutput the function m-to-the-n to the file temp.!. 
{ 


Conversely, a <LISP form> can be read from a file, without being 


evaluated, using read: 


-> (read (infile ‘'temp.i))<CR> 
-- Read the next <LISP form> from the temp.1 file. When the end of 
-- file is reached then nil 1s returned. The <LISP form> is not 
;; evaluated when read. To do so eval must be explicitly used. For 
;; example: (eval (read (infile ‘4-flags))), where 4-flags has a 
;; <LISP form> that needs to be evaluated. 
(def m-to-the-n 
(lambda (m n) 
(cond ((zerop n) 1) 
(t (times m (m-to-the-n m (i- n)))) ))) 


—> (enit})<CR> 
;; Leave LISP and then output temp.] to the screen using cat 


26 Other functions that are used for output are patem and print. Their 
syntax is similar: 
<LISP form> ::= 
—> (patom [‘]<LISP form [Coutfile <filename> [°a]}]}<CR> 
<LISP form>::= 
—> (print [*}<LISP form> [Coutfile <filename> [*a])J)<CR> 
These functions both output to the terminal if the optional outfile 
argument is not given [the ‘a appends the output to the previous file 
contents, otherwise they are wiped out]. Because these functions do not 
send carriage returns when they finish their output, they are usually seen in 
conjunction with (terpri [(outfile <filename> [‘a]) which caegut a 
terminate line character sequence. For example: 
-> (patom ‘| Stop printing. terprid<cR> 
Stop printing. 


41 


*% cat temp.kCrR> 
* The contents of temp.] are concatenated to the screen. 
(def m-to-the-n 
(lambda (m n) 
(cond ({zerap n) 1) 
(t (times m (m-to-the-n m (1- a)))) ) )) 


Now, reentering LISP, the temp.] file is loaded into LISP and the 


function it contains is tested in the following sequence of events: 


% lisp<CR> 
:: Start the LISP environment. 
Franz Lisp, Opus 33.69 


-> (include temp.i)<CR> 
-- Load the temp.] file into which has the m-to-the-n function. 
[lead temp.!] 

t 


-> (m-to-the-n 4 3})kCR> 
- A test of the m-to-the-n function: 45 := 64. 
64 


There are many other !/0 functions in LISP, which give the user a 
great deal of control, but these can be added to this Dasic set as the user's 
needs grow. The next section presents a brief LISP lexicon and covers 


iteration and recursion. 


C. LISP FUNCTIONS AND DATA 

Part of LISP’s power is that it has the same format for data and 
functions; thereby, allowing functions to be manipulated as data. This idea 
is elaborated in this section along with an explanation of basic LISP 
Primitives and control structures. These basic LISP constructs allow 


Iterative or recursive algorithms to be easily implemented. 
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1. LISP’s Basic Structure: The List 

A function and a list of data look the same in LISP. For example, the 

next <LISP form>, 

(replace-item-points inverter new-points), 
is an application of a function [replace-item-points) to its arguments 
(inverter and new-points); or, it can also be a list of three elements 
(replace-item-points, inverter and new-points). 

Which one it it? It is both! A LISP program is a list, and eval 
normally applies the list’s head as a function to the list’s tail. If the list is 
quoted, then it’s treated as data. (MacLennan, 1983, p. 348) 

Atoms and lists are referred to as symbolic eszress/ans. Expressions 
are called /ar7ms if they are to be evaluated. “Considered as data, a list may 
be called an expression; considered as a piece of procedure, the same list 
may be called a form”. (Winston, 1984, p. 20) 

With these ideas in mind another look can be taken at the procedure 
for LISP function definition. 

2. LISP Function Definition: def and defun2? 

Up to this point the reader has seen functions that take a fixed 
number of arguments all of which are evaluated. This class of functions Is 
called an esr. There are three other categories: /eszr, /esar and mecras<s. 


An fexpr takes an unlimited number of arguments, but does'nt evaluate them. 


2? See Section |!.4.2 for function definition using def. 


28 Macros are discussed in Chapter III. 
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The lexpr accepts a variable number of arguments and evaluates them. 
(Wilensky, pp. 116-122, 160-178) 

Two ways of creating exprs have been shown: def with a lambda 
function, or a lambda function by itself. There is another syntax for 
defining an expr [define fumction] which, unlike def, doesn't use lambda 
notation: 

(defun <function-name>({<argument>*) <LISP form>*) 

This function is applied in the same fashion as before: 

<yalue> ::= -> {<function-name><parameter>*)}<CR> 
Therefore, in summary, there are three ways of creating expr's: 


<exprm = (lambda (kargument>*)<LISP form>*) 


<exprm = (def <function-name> 
(lambda (<argument>*)<LISP form>*)) 


<exprm ::= (defun <function-name>{<argument>*) <LISP form>*} 
It is sometimes desirable to have a variable number of evaluated 
arguments in a function. There are several formats for lexpr's: 


<lexpr := (defun <function-name> 
(<argument>* ®eptional? <optional-argument>*) 


<LISP form>*) 


<lexprm ::= (defun <function-name><symbol><LISP form>*) 


<lexpm := (def <function-name> 
(lexpr (<symbol>) <LISP form>*)) 


22 See Section I1.C.3.f for another example of the Septianal feature in 
the function match-that [Foderado, 1983, p. 4-4]. 


For example, a function that finds the logarithm base 2 of a number 
can De defined in LISP 4s follows: 


-> (defun log-itwo (number Foptional (base 2)) 
;; The primitive LISP function quotient finds the quotient of two 
;; numbers, and log finds the natural logarithm of a number. The 
;; optional argument “base” defaults to a value of 2 if a 
;; parameter is not given for it. 

(quotient (log number)(log base)) )<CR> 
;; Find the logarithm base 2 or the given base of @ number. 

log-twa 


This function is applied in the following ways: 


-> (lag-twoa 13)<CR> 

;; dog-two <number>) 

3; Find the log base two [defaul] of 13. 
3.700439713141992 


-> (leg-two 13 19)<CR> 
;; Evaluate the base ten log of 13. 
1.113943335230683 7? 


Another way to define this lexpr is as follows: 


-> (defun log-two n 
;; In this format, the symbol “n’, will be bound with the number 
;; of arguments supplied. The function arg gives the parameter 
;, associated with the position corresponding to the number it is 
3; given. 
(quotient 
(leg (arg 1)) 
;; If a second parameter is provided use its value, if not use 2. 
(lag (cond 
(© vn 1)(arg 2)) 
(t 2) 39) KKCR> 
log-imeo 


The third functional class, an fexpr, doesn't evaluate its arguments 
and takes a variable number of them. Nothing comes for free though, the 


flexibility of a variable number of inputs is offset Dy the overnead of 
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accessing the parameters. when parameters are input to an fexpr they are 
all bundled up into a list which is bound to the fexpr’s single argument. The 
parameters must be obtained from the list. 

There are two ways to create fexpr's: 


<fexpr> := (defun <function-name> fexpr 
(<argument>)<LISP form>*) 


<fexpr := (def <function-name> 
(nlambda (<argument>)<LISP form>*)) 


A good example of an fexpr is a function that loads any number of 
files without having to quote the files (Wilenksky, 1984, p. 163): 


-> (defun lead-files fexpr (files)(mapce ‘lead files))<CR> 
:; mapc is similar to mapcar=2 in that it applies a function across 
;; one or more lists; however, it doesnt return a useful value, 1.e., 
;; the side-effect is what is desired in this case. 

load-files 


This function can load several files without having to quote them: 


-> (load-files lincoln.! L5.1)<CR> 
[load lincoin.!] 

[load L5.!] 

-> 


These three categories of LISP functions (expr, fexpr and lexpr) are 
found in different areas of MacPitts and LBS.5! Some of these applications 
are examined in later chapters. However, it is useful at this juncture to look 


at LISP’s built-in functions 


50 See Section 11.C.3.e. 


31 See Chapter IV. 


3. Frequently Used LISP Functions 

A synopsis of common LISP functions is presented to briefly 
familiarize the reader with LISP’s syntax. First, a look at functions used to 
give values to symbols. 

4. Binding Yariables: set, setq, let and let* 

Variables are assigned values with set or setq [set quote]. 

Although set only takes one symbol at a time, it has a similar syntax to 
seta: 


(set {[*]<symbol>} {{*]kLISP form>}) 
(setq {<symbol> [*]<LISP form>}*} 


These two functions are applied as follows: 


—-> (set ‘A ‘(a b c})}<CR> 
:; Set “A” to have the value “(abc)”. 
(a bc) 


-> A<CR> 
:- A's value is (a Dc). 
(a bc) 


-> (setq BA C1 23) 0 (plus 1 2 3))<CR> 
;; The <symbol>s are unevaluated, Dut are respectively assigned 
;; the results of evaluating the <LISP form>s. setg returns the 
:- value of the last evaluation it performs. 
-B:= A,C:= (123) andD:= (plus { 23) :=6 

6 


-> B<CR> 
:- B's value has been set to A, but A:= (abc). 
(a bc) 


—> €<CR> 


: C's value is (1 2 3). 
(1 2 3) 


4? 


—> BKCR> 
:- D's yalue is (plus 123) :=6 
6 


let and let*%2 are used to create an orderly environment in which 
to assign values to vanables, apply functions to the varnables and then 
restore the variables to their original values. Their syntax is similar: 
(let({*) ( {(<symbol> [‘}<LISP form>)}*)<LISP form>*) 
50, assuming that A, B, C and D still have the above values 
assigned to them, an example that uses let is: 


-> (let ((A (times 2 3))(B (plus 1 2 3 4))) (list 2 B} )<CR> 
;; First, A and B are assigned values as follows: 
a (times 2 3) := 6 and B := (plus 123 4):= 10 
;; Then, the remaining <LISP form> is evaluated as follows: 
:: (list A B) := (6 10) 
(6 10) 


-> Ax<CR> 
;; Variables are restored to their previous values: 
(a b c) 


let assigns values in parallel, let* does it serially: 


-> (let* 
- First, set A=(+ 123)=6 
({f (plus 1 2 3)) 
; Second, set B= (* A 5) = (* 6 5) = 30 
(B (times A 5)) 
;; Third, set C = (- B A) = (- 30 6) = 24 
(C (minas B fj) ) 
(list A BC) )<CR> 
;; The result is a list composed of A, B andC 
(6 38 24) 


$2 Jet\* might have to be used if the “ * ~ is not being recognized by the 
interpreter or compiler. The “ \ “ serves as an “escape” character. 


The variables are restored to the values they had prigr to 
participating in the Jet* construct. With these methocs of Variabie 
assignment in hand, & look is now taken at list manipulation. 

bD. List Selection: car ,cdres, nth , and athedr 

LISP is based on the application of functions to arguments. The 

syntax of LISP generally has a structure of the form: 
(<function-name><argument>*) 

Therefore, it seems natural to have a selector that picks the first 
element of a list, the “function”, and another selector that returns ali the 
elements of a list except the first, the “arguments”. These selectors arz car 
and cdr: 


<head> = -> (car <list>jJ<CR> 
<tail> «= -> (cdr <list:)<CR> 
<list> ss (<head><taily}54 
aneeg> =S<kisrF form? 

étail> i= <LISF form> 


The application of these basic selector functions 1s shown below: 


-> (car '(nlus 1 2 3 4))-CP> 

Carlile 

-- car selects the first {“function’ or “nead"} list element 
pius 


The “ tail” selector, cdr, is used as follows: 


*3 car and cdr were assembly language instructions for the JBM 794 on 
which LISP was first implemented. An instruction was divided up inia 
fieids. Two of tne fields were named the eggress and gecramen!. Car and 
cdr were the instructions for getting the contents of the address painted to 
by these fields. (Charniak, 1985, p.48) 


34 Compare to the definition of alist in Section 11.4.2. 
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-> (cdr ‘(plus 1 2 3 43)<CR> 
5 (Cor iste) 
-- cdr selects all elements except the first {“arguments™ or “tail”} 
;; and returns them as a list 
(123 4) 


A more complicated example: 


-> (car (car (cdr (cdr ‘(plus 1 (times 2 3) 4 5)))))<CR> 
;; In order to simplify the notation, when car and cdr are applied 
;; In succession they are joined into one word, e.g. 
:; (car (car (cdr (cdr x)))) would become (caaddr x) 

cdr: (1 (times 23) 45) 

:: cddr : ((times 2 3) 45) 

; caddr: (times 2 3) 
:; caaddr : times 
times 


The next illustration of these selectors uses as an abbreviated 


format: 
-> (cadadddr ‘(plus 1 (times 2 3) (minus (divide 4 5) 5) 
7 8))<CR> | 
-- cdr: (1 (times 2 3){minus (divide 4 5) 6) 7 8) 
;; cddr : ((times 2 3)(minus (divide 45) 6) 7 8) 
:: cdddr : ((minus (divide 45) 6) 7 8) 
-- cadddr : (minus (divide 4 5) 6) 
-- cdadddr : ((divide 4 5) 6) 
-- cadadddr : (divide 4 5) 
(divide 4 5) 


There are two other useful list accessors: ath and athedr. They 
both have very similar syntax: 


(ath <number<list>) 
(athedr <number <list>) 


They are practical alternatives to a succession of cars and cds, 


and are used in the following manner: 
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—-> (nth 3 ‘{and in those days it came to pass))<CR> 

:: (nth <index><list>) 

;, starting at 0, return the indexed argument of the given list. 
days 


->(nthedr 2 ‘(hglomorphism: all is form ® maitter)}<CR> 
:; (nthedr <index><list>) | 
;; Starting at 0, return the indexed cdr of the given list. 

(form @ matter) 


Lists can be separated into their components with the functions 
covered in this section; but, how are they built up? 
c. List Construction: cons, append and list 
The list selectors car and cdr separate a list into its “head or 
“function” and its “tail” or “arguments. The list constructor cams is their 
dual: it synthesizes a “head” and “tail” into a list. (Winston, 1984, p. 29-31) 


<list> := -> (cans [°)<head> [*}<tail>}<CR> 
<list> := (<head><tail>) :- -> (cams ‘<head> ‘<tail>}<CR> 
<head> ::= <LISP form>, and <tail> := <listb* 


Therefore, in order to synthesize a list out of two parts: 


—> {cons ‘plus ‘(1 2 3))<CR> 
-- (cons ‘<head> ‘<tail>) 
(plus 1 2 3) 


To create lists use list with this format: 
<list> z= -> (list { [‘]<LISP form> }*}«CR> 
An example that makes a list out of several arguments is: 


-> (list ‘This ‘is 'a ‘joined 'sentence!)<CR> 
;; Make a list out of the following elements. 
(This is a joined sentence!) 


SS In actuality an atom can form the tail element, this produces a dotted 
list, e.g., (<head>.<tail>) 


oI! 


In order to “splice” lists together use append: 
<list> z= -> (append { ‘<list> | (st ["]<LISP form>}}*}<CR> 
Both list and append evaluate their arguments, but append 
splices its arguments vélues together: 


-> (append ‘(this is) ‘(net a) ‘(disjoint sentence.))<CR> 
;; Join the lists into one list. 
(This is not a disjoint sentence.) 


The null list is called mil, this is also the LISP word for false: 


-> (list ‘O)CR> 
nil 


List selectors and constructors break up or join LISP expressions 
and may be used to rearrange a list’s elements. These elements might be 
LISP functions or their arguments, that manipulated as data, can be placed 
into a list format in which the function can then be applied to its 
arguments. This idea is now examined. 

d. Functional Application: apply and funcall 

These two functions apply a function to a list or to a set of 

arguments. The syntax for apply is: 


<value> := -> (apply <function-name> 
(list {["]<parameter>}*) | {<parameter *)})<CR> 


apply takes a function and a list of parameters for the function 
as Its arguments, as shown below: 


-> (apply ‘plus "(1 2 3))<CR> 
;; (apply <function-name><parameter-list>) 
6 


% See the discussion in Section II.3.e. 


a 


-> (apply ‘append ‘({a D){c d)le 1)))<CR> 
(abcde f) 


funcall is similar to apply, except that it accepts each parameter 
for the function individually. it has this format: 
<yalue> := -> (fancall <function-name> { [")<parameter> }*)}<CR> 


Examples of funcall now follow: 


-> (funcall ‘plus 1 2 3)<CR> 
;; (funcall <function> { [‘]<parameter}* } 
6 


-> (funcall ‘append ‘(a b) ‘(c d) ‘{e £))<CR> 
(abcde f) 


Up to this point, functions can be applied sequentially to each 
other; but so far, there is no way to conditionally apply a function. In order. 
to build control structures that can do this, the idea of a predicate is now 
introduced. 

e. Predicates (the Values t and nil) and the cond Control Structure 

A predicate is a function whose value is either true or false. The 
LISP symbol for true is t and for false it’s mil. in LISP any non-mil value is 
considered to be true. Both t and nil evaluate to themselves. The empty list 
is also called mil and is the only LISP expression that is simultaneously a 
list and an atom! (Winston, 1984, p. 44-46) 

Therefore, the following is true: 

{ t |] mil} = -> (xpredicate><LISP form>*)}<CR> 

Many LISP predicates end with a p, e.g. listp, minusp, etc., Dut 

there are important exceptions such as: atom, null and equal. (Touretzky, 


1984, pp. 14-17) So, for example: 


oS 


-> (listp ‘Ca B c)})}<CR> 
- Ig "(a Dima sie 
t 


-> (null ‘a)<CR> 

Is" a7 null? l.e., is it equal to nil. 
nil 

-> (atom ‘a}<CR> 

Is" a” an atom? 
t 


-> (equal ail 'Q))«CR> 
-- Is nil equivalent to (). 
t 


> 0321 4) 
-- Some predicates accept more than one parameter. In this case, 
">" checks to see if all the parameters are strictly decreasing. 
mil 
Predicates in conjunction with the conditional function, cand, are 
used to control execution flow. The conditional is similar to an“ IF ..., THEN 
..., ELSEIF...” statement and has the following syntax: 


(cond ({<test form> <action>}*)) 
<test form> ::= ( [met] <predicate form>) | 

( [and | or] {<predicate form | <test>}*) 
<predicate form> z= (<predicate><LISP form>*) 


The <test>s are performed sequentially?’ until one evaluates as t, 
then its corresponding action is performed. 
The LISP primitive functions and & or are simple control 


Structures which are used as follows (Foderado, 1983, p. 4-1 & p. 4-13): 


3? MacPitts has a conditional form, camd, which conducts its tests in 
Darallel, and selects the first one that’s true. This mode of operation 
reflects the YLS!I implementation of the conditional function in MacPitts. 
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-> (and)<CR> 
;; If “and” has no arguments it returms t. 
t 


-> (and 1 2 (plus 2 3))<CR> 
;; If all its arguments are non-nil, then “and” gives the value of 
;; its last argument; otherwise, if any argument evaluates to nil 
;; the result is nil. 

2 


-> (ar}<CR> 
; 1f “or” has no arguments it returns nil. 
nil 


-> (or (zerop*® 1)(* 3 5)0))«CR> 
:; Returns the first non-nil value, otherwise if all its 
3; arguments evaluate to nil, ~ or ~ returns nil. 

15 


In another example, examine how a predicate, member? ©? is 
constructed using conditional tests and the LISP function member: 


-> (member ‘a ‘(b c a d e))<CR> 
:; member returns a list that starts with the first instance 
;; of the element that is being checked for membership in a 
3; list. 
(a de) 
The code for the member? predicate is now shown. Observe that 


“list “1s a parameter and not the list function: 


38 -> (zerop 1)<CR> 
nil 
-> (zerop 0)<CR> 
t 


32 See Chapter Ill for a description of lincoln.l. In lincoln.) predicates 
usually end witha ~?°. 
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-> (defun member? (element list) 
(cond 

- IF the list is null, THEN return nil. 
-- This is the Basis Condition: it ensures termination. 
((aull list Q) 
-- ELSEIF the element is equal to the head of the list, 
- THEN return t 
((eq (car list} element) t) 
: ELSEIF the element isn’t equal to the list’s head, THEN 
;; apply this procedure again to the lists tail. 
:: The t in this last conditional test means that if the 
:- other two conditional checks fail, then this last 
;; statement will always get done. 
: This is the Recursive Condition: it ensures all the 
;; elements get checked for membership. 
(t (member? element (cdr list))) J)<CR> 
member? 


-> (member? ‘and ‘(Self prophecy and recursion))<CR> 
;; (member? <element><list>) 
;; ls “and” a member of the list “Self prophecy and recursion ? 

t 


Another example of a function that uses the conditional statement 


follows. First, the function, match-that, is applied in a simple example: 
-> (match-that 3 ‘(1 2345 6 7) ‘<)<CR> 
;; (match-that <element><list><predicate>) 
;, Returns a list composed of elements in the list that satisfy the 
;; predicate relation with the thing. Notice that the optional 


;; argument was not used here. 
(4 5 6 7} 


Now the function's code is presented. Again note the use of the 


parameter list". The © tail ~ variable is were the results are being stored 


as the recursion unwinds: 
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-> (defun match-that 
(thing list predicate Voptianal tail) 
(cond 
;; This is the recursion’s basis condition: 
3, If the list is empty, then all the results are in the tail. 
;; olnce the first elements are being consed into the tail 
;; first by the application of match-that to the remainder 
;; of the list, (cdr list), when the basis condition is met, 
;; al] the element in the tail will be backwards. 
;; Therefore, reverse them and return this as the result. 
;; This is the Basis Condition: stop if the list is empty. 
((nali? list)(reverse tail)) 
;; The list wasn't empty, therefore, apply the predicate 
;; to the element's head. If the predicate is satisfied, 
;; place the head in the list called “tail”. 
;; This is a Recursive Condition: apply the predicate to 
;; first list element, (car list), and match-that to the 
:; rest of the list, (cdr list). 
({(funcall predicate thing (car list)) 
(match-that 
thing 
(cdr list) 
predicate 
(cons (car list) tail)) ) 
;, Since the list wasn’t empty and the head element did'nt 
;; satisfy the predicate, apply this algorithm to the rest 
;; of the list. Another Recursive Condition. 
(t 
(match-that thing (cdr list) predicate taii}*°<CR> 
;; LISP returns the function's name 
match-that 


Predicates can also be used in iterative control structures. 


40 The ~ ] ~ is a right superparenthesis. A right superparenthesis can 
substitute for as many regular parenthesis, ~ } “ as would be required to 
Close off the <LISP form>. However, the count stops as soon as a left 
superparenthesis, “[~, is encountered. (Wilensky, 1985, p. 42) 


a 


f. Iteration: prog, do, da**!, and mapcar 
Although recursion is very often used in LISP, there are times 
when an iterative approach is preferable. LISP has various iterative control 
structure. One syntax for LISP iteration uses prag (Wilensky, 1984, p. 77): 


(prog (<local-variable>*) 
{ (setq <local-variable><LISP form>) | <PROG form> }*) 
<PROG form> ::= <tag> | (ge <tag>) | 
(return <LISP form>) | <LISP form> 
<tag> ::= <atom> 


The use of prog is like programming in BASIC with its loops and 


go to's. The way prog works is as follows (Winston, 1984, p. 87): 


e The first position in a PROG is always occupied by a list of parameters, 
which are all bound on entering the PROG. Each parameter that has a value 
before the PROG is evaluated is restored to its previous value upon exit.If 
there are no parameters, NIL or () must be in the first position. The 
parameters are each initialized to NIL automatically .... 


e The forms in the body of a PROG are evaluated one after the other. The 
values are ignored, so the evaluations are only useful for side effects. If 
control runs off the end of a PROG, then NIL is returned, just as with COND. 


e Whenever a RETURN expression is reached when evaluating a PROG, the 
PROG is terminated immediately. Tne value of the terminated PROG is 
{hevalue of the argument in the RETURN expression that stopped the PROG, 
just as with DO. 


@ Any top-level symbol in the body of a PROG is considered to be a position 
marker. These symbols, called ¢egs , are not evaluated. They mark places 
to which control can be transferred by GO expressions. That is, (GO <TAG>) 
transfers control to the form following the <TAG>. 


41 See the comment about let* and let\*. do and do* have-the same 
relation as let and let*. do assigns values in parallel, whereas do* does it 
senally. 
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The setq’s are used to assign values to variables within the context 
of the prog. As an example, review this definition of a factorial function: 


~> (defun factorial (integer) 
;; Bind local variables to nil. 
(prog (result) 
-- Initialize local variables 
(setq resuit 1) 
;; A loop that will find the factorial of a positive integer. 
loop 
;; IF the integer is zero then exit the prog and return the result. 
(cond ((Zerop integer)(return result))) 
;; OTHERWISE, multiply the integer by the accumulated result, 
;; then decrement the integer by one and repeat the loop. 
(setq result (* integer result)} 
(setq integer (1- integer))(go leap) ) )<CR> 
factorial 


A more structured iterative syntax, which can do everything prag 
does, uses do or da* (Winston, 1984, p. 86): 


(do ({(<variable> <initial-value> <update-form>)}*) 

( <end-test> <LISP form>* <result-form>) <body> }42 
<end-test> ::= <test form>43 
<result-form> ::= <LISP form>, and <body> ::= <LISP form>* 


However, if an action is to be performed across lists, then “the 
lazy man’s do loop", mapear, can be used. (Winston, 1984, p. 79) For 
example, given the LISP primitive zerop, a lists elements can all be 
checked for equality with zero in one fell swoop: 


-> (mapcar 'zerop ‘(1 0 a 0 0 2))<CR> 
(nil t nil t t nil) 


42 See Section 11.C.4 for an example of da. 


43 See Section I!.C.3.e for <test form>’s format. 
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The mapear function applies 4 function across the first list 
elements, then across the second list elements, until the shortest list is 
exhausted. The function must be able to take as many parameters as there 
are lists. Generalized lambda functions to perform complex operations can 
be constructed and applied across lists using mapcar. Its format is: 

(<yvalue>*) := -> (mapcar <function-name> { ["}<list>}*)<CR»> 

Some examples of mapcar: 


-> (mapcar ‘list ‘(a bc) U1 2 3) U8 FY 2Z))KCR> 
;; Make 4 list that has sublists with the respective element in 
;, each of the given lists. 

({a 1 4)(b 2 ¥)(c 3 2)) 


-> (mapcar ‘(lambda (2)(plus « 5)) ‘(1 2 3 4 5))kCR> 
;, Add 5 to each list element. 
(6 729 10) 


-> (mapcar 
‘(lambda (2 y)(times 8 g)) 
(12345) ‘(3 45 67) CR 
;; Multiply two lists. 
(3 315 24 35) 


LISP’s iterative control structures are convenient tools that 
supplement its naturally recursive style. 
4. \teration and Recursion 
in an iterative routine, “indefinite repetition is designated by explicit 
instructions to do something repeatedly.” The de construct in LISP is one 
format for iteration. (Wilensky, 1984, p. 75) An iteratively defined function 


which raises a number to 4 power is a good example (Winston, 1984, p. 85): 
+4 Refer to the discussion in Section IIA. 
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-> (defun m-to-the-n (m n) 
(do* ({resuit 1 (* m result)) 
(power n (- power 1))) 
((zerop power) result)))<CR> 
;; Raise a number to a positive power: m. 
m-to-the-na 


-> (m-toe-the-a 2 3)<CR> 
3; result, := 1, power := 3, (Zerop 3) := nil 
3; results := (* 2 1) := 2, power := (- 3 1) := 2, (zerop 2) := nil 
3; resultz := (* 2 2) := 4, power := (- 2 1) := 1; (zerop 1) := nil 
sj resulty := (* 2 4) := 8, power := (- 1 1) := 0, (zerop 0) = t 
fe 


Recursion accomplishes indefinite repetition “by having a function cal} 
itself during its execution.” (Wilensky, 1984, p. 73) A recursive 
implementation of m-to-the-n (Winston, 1984, p. 64): 


-> (defaun m-to-the-n (m n) 
;; The exponent [ n] should be a non-negative integer. 
(cond . 
;; Test to see if the exponent [ n] is Zero, 
7, if it is, return a value of one. 
:; This is the Basis Condition. 
({zerop n) 1) 
:, if the exponent is not one, then 
3; multiply m by (m-to-the-n m (1- n)), n.b., 
;: the recursion will end since n will be reduced 
;; to zero and (m-to-the-n m 0) is one! 
-: This is the Recursive Condition. 
(t (* m (m-to-the-n m (1- 2)46))) ) ) «CR> 
m-to-the-n 


49 Refer to Section 11.C.3.e for da's syntax. 


46 1- decrements by one, while 1+ increments by one. 
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-> (m-to-the-n 2 3)<CR> 
:: First time through: (m-to-the-n 2 3) 
--m:= 2,n:= 3, (zerop 3) := nil, therefore 
-- result, := (* 2 (m-to-the-m 2 (= 3)}} = (* 2 (m-to-the-neeeay 
-; Second time through: (m-to-the-n 2 2) 
:Mm:= 2, n:= 2, (zerop 2) := nil, therefore 
5; FeSUIty := (* 2 (m-to-the-n 2 (1- 2))) := (* 2 (m-to-the-n 2 1}) 
;; Third time through: (m-to-the-n 2 1) 
:om:= 2,n:= 1, (zerop 1) := nil, therefore 
;; results := (* 2 (m-to-the-n 2 (1- 1))) := (* 2 (m-to-the-n 2 0)) 
;; Fourth time through: (m-to-the-n 2 0) 
--m:= 2,n:= 0, (zerop 0) := t, therefore 
3; resulty := 1, Finally a result! Now, substituting backwards: 
5, results := (* 2 resulty) := (* 2 1) := 2 
;; Fesults := (* 2 results) := (* 2 2):= 4 
;; result, := (* 2 results) := (* 2 4) :=8 
tb 


LISP has a variety of useful contro] structures and a fecund 
vocabulary. In addition, LISP has other tools to aid in quickly developing 


working programs. Some of these are considered in the next section. 


D. THE FRANZ LISP PROGRAMMING ENVIRONMENT 
LISP has arich panoply of tools to aid the programmer. Among these are 
a@ package for stepping through functions as they are being evaluated; a 
program for debugging faulty code; and, a facility for tracing functions and 
the values they are manipulating. 
1. Program Development Aids 
The stepper, debugger and tracer are normally automatically loaded 
into LISP when they are needed. They work based on a simple idea: it’s 


sometimes easier to see a mistake as a program is running than to catch a 
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logical error. The three basic functions associated with these programs are 
trace, debug and step.*’ To see how they work, recall factorial: 


-> (factoriait*® 5)<CR> 
eee ee 
120 


The operation of zerop can be observed using trace, as follows: 


-> (trace zerop)<CR> 

fautoload /usr/lib/lisp/trace] 

[fasl /usr/lib/lisp/trace.a] 

;; The tracer returns 4 list of functions being traced. 
(zerop) 


Now, every time that zerop is used its associated values are shown: 


-> (factorial 5)<CR> 
1 <Enter> zerop (5) 
1<EHID zerap ail 
1 <Enter> zerop (4) 
1<ERID zerop anil 
1 <Enter> zerop (3) 
1<EHID zerop ail 
1 <Enter> zerop (2) 
1<ERID zerop ail 
I <Enter> zerop (1) 
1<EXID zerop anil 
1 <Enter zerop (0) 
1<E#ITD zerop t 
1208 


4? For discussions of these areas see: 
(Foderado, 1983, Chapter 11 [Tracer], Chapter 14 [Stepper], 
Chapter 15 [Debugger] and Chapter 16 [Editor]) 
(Wilensky, 1964, Chapter 11 [Debugging}) 
(Charniak, 1985, Section 2.6 [Debugging]) 
(Winston, 1984, Chapter 14 [Debugging]) 


48 Defined in Section I1.C.3-f. 
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if the tracing feature is no longer desired it can be stopped as 


follows: 
-> (untrace)}<CR> 
;; The untrace function returns a list of all the functions 
;; it has stopped tracing. 
(zerop) 


Sometimes though, an error cannot be localized to any particular 
function. In that case the step function allows the user to observe the 
Incremental operation of a program. The debugger can be entered from the 
stepper, or vice-versa, or it can be invoked separately. In this case the 
stepper is invoked so that only interpreted code is shown as follows: 


-> (step e)<CR> 

;; otep only interpreted code. If a “t” argument was 
;; provided then al] code would be stepped. 
[autaload /usr/lib/lisp/steo] 

[fasi /usr/lib/lisp/step.al 

t 


-> (factorial 3)<CR> 
;; A <CR> is needed in order to continue stepping. 4 “q” 
;, stops stepping. p shows the current form in full. An 
;; N<integerm steps through the given number of evalua- 
;; ons without stopping. A “d goes into the debugger. 
{factorial 3) 
3 
(prog (result) (setq result 1) loop (cond (7 &)) 
ae j 
(setq result 1) 
1 
1 
(cond ((zersp integer) (return result)})}<CR> 
(zerep integer) 
integer = 3 
nil 
nil 
(setq result (* integer resuit))c<CR> 
3 


64 


(setq integer (11-| integer))n2<CR> 
2 . 
(go leap) 
(cond ((zerop integer) (retura resait))) 
(zerop integer)d<CR> 
;; Go into debug mode. Usually invoked with: (debug) 
[fasi /usr/lib/lisp/fix.a] 


(a debug------ > 
;; Obtain a listing of debug commands using help. 
> help<CR> 


ufun/uf/unf go up, i.e. more recent 
(n frames) (of function f) 


up /upn go up to next (nth) non- 
system function 

d / dn go down, i.e. less recent 
(opposite of u and up) 

ok / go continue after an error or 
debug loop 

redo / redo f resume computation from 
current frame (or at fn f) 

step restart in single-step 
mode 

return e return from call with 
value of e (default is nil) 

edit edit the current stacx 
frame 

editf / editf f edit nearest fn on stack 
(or edit fn f) 

top / bot go to top (bottom) of 
Stack 

p / opp show current stack frame 
(pretty print) 

where give current stack posi- 
tion 

help /h / ? print this table -- 
fusr/lisp/doc/fixit.ref 

help ... get the help for ... - 

pop / “d exit one level of debug 
(reset) 
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bk / bk n/ bk f backtrace (to nth frame) 
fok nt / (of fn f) 

..f function names only 

..€ include system functions 

..¥ Show variable bindings 

_.@ show expressions in full 

..¢ gO no deeper than here 

*** combinations are allowed *** 

;; Find out where in the stack the user is at present. 

-where<CR> 


you are at top of stack. 

there are i debug's below. 

;; Go down the stack. 

c-dn<CR> 

;; This is the <LISP form> at this stack level: 
(eval (debug)) 

;; Go up to the stack top. 

-tap<CR> 


return 5<CR> 
;; The user intended to move down the stack and change 
;; the value being returned, but instead made 4 mistake, 
:; and therefore interrupted the action: 
“C*C*Cinterrupt: 
Break nil 
;; Lisp will now go into an error loop and the stack 
-- contents saved up so the user can check them. The 
> showstack function shows the current stack contents. 
;; The baktrace function is similar. Within debug 
;, Daktrace is “Dk”. “bkfv” in debug would print out 
:; function names instead of <LISP forms> and would 
;, show variable bindings. 
<1>: (showstack)<CR> 
break-err-handler 
*break 
sys:int-serv 
tyl 
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funcall-evalhook* 

eyvyalhook* 

(zerop integer) 

(cond (<**> (return result))) 

evalhook 

continue-evaluation 

funcall-evalhook* 

evalhook* 

(cond ((zerop integer) (return result))) 
(prog (result) (setq result 1) loop ...) 
evalhook 

continue-evaluation 

funcall-evalhook* 

evalhook* 

(prog (result) (setq result 1) leap ...) 
(factarial 3) 

evalhook 

continue-evaluation 

funcall-evalhook* 

evalhook* 

(factorial 3) 

;; The stack has LISP system function calls interspersed 
;; with the factorial function. A handy feature of the 
;- error loop is that the current variable values can be 
;; easily obtained. Showstack returns nil. 

nil 

;; What is the “integer” variable’s value? 

<1>: integer<CR> 

2 

-; What is the “result” variable’s value? 

<€1>: result<CrR> 

3 

;, Leave the error loop. 

<1>: (reset)<CR> 


[Return to top level] 
Hopefully, this very brief look at some LISP programming tools will 
encourage the user to experiment with them. The next section reviews the 


salient points covered up to now. 
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2. Summary 
alihough at first, che fact that LISP functions @nd date loon dline is 
disconcerting; after a orief period of adjustment, having only one Format far 


everything becomes a strong asset. Additionally, LISP ts a4 mature ianguage 


= 


that has many program development tools integrated into it. 
A lot of other material was also covered in this chapter; nowever, 


LISP’s key ideas are well stated in this quote from (Brooks, 1985, p. 3). 


® Lisp provides @n interactive system in which the user ! 
exoression and Lisp svtecore’s it lor esée/ve7ss it) end prints au 
result. Thus, large programs can be built and tested Incrementaily, and a 
each stage af testing the full power of Lisp is available ta examine tne 
State of the program and data structures. Rather than go througn anotner 
edit-compile-link-run cycle to test a Dug hypothesis, the user can test it 
directly by typing Lisp statements to the interpreter. 


2 Lisp programs and data have the same form. An often-touted conse 
of this is that Lisp programs can modify themselves. A mere im 
result is that it is very simple to write embedded languages tn Liso. 
particular application, a user aften can very quickly write a language 01 @ | 
a translator from the language into Lisp) that 1s 1n some way weil sulted 
to the probiem being solved. 


Guence 
SO gaa 


a 
i 

= 
rH 


3 LISP systems manage storage allocation for the user oy praviaing 
dynamic heap of storage that is allocated for data storage 4s needed, ¢ 
then “garbage collected” (i.e. reclaimed) in a manner invisible to the user 
when no longer needed. The useris freed from worrying ¢fr7er7 about how 
much storage will be needed for 4 particular procedure over all possible 
inputs. 


ea: ui 


we 
oa 


e Most Lisp systems include 4 cornpiler that cornpiles programs written 1 
Lisp inte efficient machine code. Thus, user programs can be run efi rotary 
In addition, a user-written embedded language can be compiled into 
machine code essentially for free; it need only translate user language 
programs into Lisp. 


e Lisp functions (equivalent to subroutines or procedures Us Giner 
languages) are data objects that can be passed as parameters to other 
functions. This makes it possible to write extensible contral structures in 


Meer programs thet are very difficult to duplicate in more tradition fe 
lanquages. 
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III, MACROS, FUNCTIONS AND DATA STRUCTURES: LINCOLN.L 


The program lincoln.) includes LISP macros and functions for numeric or 
string comparison, selection, and manipulation. In addition, lincoln.) 
contains 4 data structure macro, defstruct, which orders data by fields 


and creates macros to manage the data.! 


4. MACROS 
Macros are used “to write more readable code”. (wilensky, 1985, p. 180) 
They provide other advantages listed in this quote from Brooks, 1984, p. 195: 


e Macros provide a mechanism for writing program-writing programs. 


e Macros add an extra layer of interpretation to Lisp. In the interpreter, 
both layers get [sic] completed, one after the other. In the compiler, one 
layer gets [sic] done at compile time, and an assembly language program 1s 
produced to simulate the second layer at run time. 


e Macros provide an efficient mechanism for abstracting the structure of 
data out of a program. 


® Macros provide a mechanism for writing new special forms and control 
Structures. 


Macros are used to extend LISP by using data abstraction. 


'The defstruct concept is similar to the “structural primitive” idea 
which some Al researches naively hoped would lead through a process of 
generalization to a model of human conceptualization (Dreyfus, 1979, pp. 
166-9). 
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1. Data Abstracti 
Abstraction of low level functions can aid understanding. For 
example, the unmnemonic car might be renamed head: 


-> (defun head ()(car #))<CR> 
head 


-> (head ‘(A BC D))<CR> 
fA 


The mnemonic quality of this new function is offset by the overhead 
-of having 4 user defined function calling a LISP system function. The LISP 
function car takes one instruction, but a user defined function takes five or 
more instructions! (Brooks, 1984 pp. 179-180) 

Since data abstraction is an important programming tool, the cost of 
the extra function calls in compiled code is removed by the use of macros. 
"& macro is a function which accepts a Lisp expression as input and returns 
another Lisp expression.” (Foderado, 1983, p. 8-3) 

A macro is efficient because it creates code that the LISP interpreter 
evaluates only once. Subsequent calls to the macro use the expanded code 
(Wilensky, 1984, pp. 180-195). The function defmacro (define macro] is 
one of three ways to create a macro (Foderado, 1983, p. 8-3). For example: 


<macro-name> ::= 
-> (defmacroa <macro-name> (<argument>*)}<LISP form>*}<CR> 


<macro-name> ::= 
-> (def <macro-name> (macro (<argument>)<LISP form>*))}<CR> 


<macro-name> ::= 
->(defun <macro-name> macro (<argument>)}<LISP form>*)}<CR> 


& macro is applied just like a function: 


<yalue> ::= -> (kmacro-name><parameter*)}<CR> 


7 


These examples show that a macro acts very similary to a function: 


-> (defmacro head (3) (list ‘car #))<CR> 

-- Define a macro that finds a list’s head. 

-- LISP returns the macro’s name {recall the use of defun}. 
head 


-> (head ‘(fA BC D))<CR> 
-- A macro is used like 4 function. 
Al 


The LISP macroexpand primitive can be used to look at the code 
generated by the macro head: 


-> (macroeupand ‘(head ‘(A B C 9)))<CR> 
-- The code that the macro “head” is expanded into is returned: 
(car (quote (A BC D))) 


_ Therefore, after the initial macro expansion by the interpreter of 
(head 38), a1] further calls refer to (car (quote #)). 

Macros never evaluate their arguments! That's why the macro is 
written in an awkward form using the list primitive: so that when the 
expression (list ‘car #) is passed to eval, the # argument will definitely 
be evaluated. (Winston, 1984, p. 124) 

2. Eval and The Backquote Macro. 
LISP normally operates by applying ewal to expressions, unless this is 


inhibited by quate. (Winston, 1984, pp. 34-35) The dual effect is created by 


2 Refer to the discussion in Sections 11.8.1.5& cof eval and quote. 


5 The backquote character macro is usually associated with “ * “. Because 
this backwards quote is difficult to distinguish from other diacritical 
marks, the ” $~ is used in this thesis. This is done with: 4 

-> (evai-when (compile load eval)(setsyntax '|$| ‘macro 

‘hack-quote-ch-macro) ) 


ie 


the backquote macro: expressions are not evaluated unless specified. 
(Foderado, 1983, pp. 8-3,8-4) The symbol for inhibiting evaluation is “ $ ° 
for evaluating ~ , “ and for evaluating and splicing into a list " ,@ ° 
(Wilensky, 1984, p. 202) These symbols can be applied in succession, as 


composite operators, and are summarized in Table 3.1 below: 


TABLE 3.1 

BACKQUOTE MACRO SYMBOLS 
symbol Function 
$ Inhibit one level of evaluation 
: Evaluate (within the context of “ $°] 
,@ Evaluate and append 
Sones No-ops, they can be removed.4 
,@$( ) or ,@’'() No-ops 
$(x) (list x) 
$(,x ,@y) (cons # y) [y must be a list] 
$(,@x ,@y) (append x y) [x & y must evaluate to lists] 
$(,@°x ,@'y) (append ‘x ‘y) [x and y must be lists! 


So for example, if the variable Mis set to have as its value the list 
(1 2 3), the effect of "$°,°,” and “,@” can be observed: 


-> (setg A ‘(1 2 3))<CR> 
;; The variable "A" is assigned the list “(1 2 3)" as a value. 
(123) 


-> $(f A ,@A)<CR> 
;;° A” is unevaluated, "A is evaluated, °“ .@A° is evaluated and 
;; spliced into the list structure. 

(a (1 2 3) 1 2 3) 


4-> $((a b) (C DB) ,@'(e f) ,@'(6 H))<CR> 
;;" ,@'“ acts as a composite operator: ,@(quote (<argument>)) 
;, 08, first apply quote, and then” ,@°. 
((a b) (C BD) ee f G A) 


iD 


Consider the following expression: 


-> (append 

(cons (list ‘a ‘'b) (cons (list 'C 'D) ‘{e f ))) 
‘(6 H} )<CR> 

;; The most deeply nested expressions are evaluated first: 

5, fe f) => (e f) 

:- ist ‘C 'D) => (C D) 

-- (cons ‘(C D)'(e f)) => ((C D) e f) 

-- list ‘a 'b) => (a b) 

-- (cons ‘(a b) ‘((C D) e f)) => (Ca b)(C D) e f) 

;; (append ‘((a b}(C D) e f) (G H}) => (Ca b)(C D) e f G H) 
({(a b) (C BD) ee f G6 H) 


The above LISP expression with append, cons and list is equivalent 


Gi 
-> $((a b) (C BD) e f G A)<CR> 
;; The user can use the backquote character macro as a template. 
((a bb) (C BD) e f 6 HD) 


Here is how this result was obtained: 


(append (cons (list ‘a ‘b) (cons (list ‘C 'D) ‘Ce f ))) ‘(G H)) 
-- substitute for the append: 

$(,@(cons (list ‘a ‘b(cons (list ‘C 'D) ‘Ce 1)))} ,@(G H)) 
-- Substitute for the outermost cons: 

$(,@$( (list ‘a 'b) ,@(cons (list ‘C 'D) ‘(e f))} ,@'(G H)) 
- substitute for the next cons: 

$( @$( $(a b) ,@$( ,(list ‘C 'D) ,@‘(e f})} \@'(G H)) 

-- Fliminate no-ops 

$(,@$( ,$(a b) ,@$( $(C D) ,@'(e f)}} ,@(G H) 

$((a DMC D),@*{e f},@*(G H)) 

-- The desired “form’: 

$((a b)(C D) e f GH) 


The point of the above exercise is that the final result is much easier 
to scan than a series of lists, comses, and appends. The programmer can 
write code that looks like the desired result at the onset instead of 


manipulating a series of expressions as was done above. 
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The backquote macro is frequently used in writing macros. It’s used to 
create a template of the code the macro will provide to ewal, for example: 


-> (defmacro head (H) $(car ,8))<CR> 
-- Equivalent to: (defmacro head (X)(list ‘car X}) 
head 


These ideas are all brought to fruition when functions that generate 
other functions are made. A good example is the defstruct (define 
structure] macro ® This macro consists of two levels. The lowest level 
creates the desired function according to a template. The upper level 
evaluates the function that was created. A brief sketch and a bit of the LISP 
code demonstrates the idea:® 


eval 


| 
defstruct 
/ \ 
eval eval 
/ \ 
defstruct-short defstruct-long 


Figure 3.1 The Defstruct Function Hierarchy 
The code that follows reflects the structure in Figure 3.1. There is a 
main eval-when form that evaluates the defstruct function. This 


function in turn has two eyal-when forms in it. They will either evaluate 


3S See Section /11.C for more detail on defstruct. 


© The reader should skim through this code looking at how the evaluation 
statements are nested with macro or function definitions. Look at the code's 
form and the extent that it “shows” the macros it is generating. The LISP 
function eval-when tells the interpreter or compiler to evaluate this code 
when it is loaded into LISP. 


a 


the results of a defstruct-short or a defstruct-iong function. The 
reader should keep in mind that the results of these functions are in turn 


other functions. Here is the LISP code: 


-> (eval-when (compile load eval) 
Evaluate whatever destruct returns: 
(def defstruct (macro (body) 
(cond 
((listp (caddr body)) 
;; Conditionally evaluate the result of defstruct-short: 
$(evai-when (compile load eval) 
,@(defstruct-short (cadr body) 
(caddr body)))) 
;; Conditionally evaluate the result of defstruct-long: 
(t $(eval-when (compile load eval) 
,@(defstruct-long (cadr body) 
. (cddr body)))}))) 
(defun defstruct-short (type fields) 
3;The defstruct-short function makes “short” structure macros: 
$((def ,(concat ‘make- type) 
(macro (x) $$(,,@(cdr x)))) 
,@(defstruct-short-fields type fields 1) 
,@(defstruct-replace-fields type fields 1))) 
(defun defstruct-iong (type body) 
;3;The defstruct-long function makes “long” structure macros: 
(cond 
({null body)()) 
({or (null (cdr body))(listp (car body) 
(atom? (cadr body))) 
(error '| invalid defstruct syntas in 
defstruct-iong |)) 
(t 
$(,(make-case-type (car body) type) 
,(is-type-case? type (car body)) 
,»@(defstruct-long-fields type 
(car body)(cadr body) 2) 
,@(defstruct-replace-fieilds 
(concat (car body) '- type)(cadr body) 2) 
,@(defstruct-long type (cddr body))))))<CR> 
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AS an example, a list with fields “name” and “age” will be called a 
“man”. Examining the results from the bottom up shows how functions are 
first created and then evaluated into the LISP environment. First the lowest 
level functions defstruct-short-fields and defstruct-replace- 


fields create macro definitions in the following fashion: 


-> (defstruct-short-fields ‘man ‘(name age) 1)<CR> 
;; Since there are two fields two selector macro definitions 
3; are made. They are returned in a list.The results are: 
;; & macro definition that selects the name field: man-name. 
((def man-name (macro (body)$(car ,(cadr body)))}) 
;; A macro definition that selects the age field: man-age. 
(def man-age (macro (body)$(cadr ,(cadr body))))) 


-> (defstruct-replace-fields ‘man ‘(name age) 1)<CR> 
;; Since there are two fields two mutator macro definitions 
3; are made. They are returned ina list. 

;; & macro definition that replaces the name field with a new 
3; Value is created and called replace-man-name. 
((def replace-man-name (macro (body)$(append 
(list ,(caddr body))(cdr ,(cadr body))))) 
;; & macro definition that replaces the age field with a new 
;, value is created and named replace-man-age. 
(def replace-man-age (macro (body)$(append 
(list (car ,(cadr body)),(caddr body)) 
(cddr ,(cadr body))))) ) 


The above results are now spliced into a list-of macros: 


-> (defstruct-short ‘man ‘(name age))<CR> 
;; The macro definitions are spliced into a list: 
((def make-man (macro (body) ... } 
(def man-name (macro (body) ... ) 
(def man-age (macro (body) ... ) 
(def replace-man-name (macro (body) ... }: 
(def replace-man-age (macro (body) ... } ) 


@ 


The list of macros is evaluated, notice that this 1s equivalent to using 
the defstruct function as follows: 


-> (defstruct ‘man ‘(name age))<CR> 
;; Only the name of the last macro evaluated is returned: 
replace-man-age 


The macros can now be used like any other LISP function: 


-> (replace-man-name ‘(jim 23) 'mike)<CR> 
:- Replace the name field of this “man” structure with “mike’. 
{mike 23) 


-> (man-age ‘(mike 23))<CR> 
;; Select the “age” field of this “man” structure. 
23 


The selector and mutator function interactions with the “man’s” “age” 
and “name” are represented in the following figure. An arrow into the field 
shows that data is being “deposited” and similarly an arrow from a field 


represents data that is being “extracted”. 


man 
ff N 
/ \ 
replace-man-age --> age name <-- replace-man-name 
| | 
V V 


man-age man-name 
Figure 3.2 “Man” Defstruct Operator Functions 
This example, although a bit involved, has shown how LISP macros can 
De used to create other functions. However, before moving on to the next 
section, the unconvinced reader should glance at Figure 3.3 and compare it 
to the definition of defstruct-iong that used backquote a few pages ago. 


There are many handy macros in lincoln.|. These are now examined. 
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(def defstruct-long 
(lambda (type body) 
(cond ((null body) () 
((ar (null (cdr body)} 
(list? (car bady)) 
(atom? (cadr bady))) 
(err ‘Jinvalid defstruct syntay|)) 
(t (append (cons (list ‘def 
(concat ‘'make- (car body) ‘- type) 
(list ‘macro 
(body) 
(list ‘cons 
“fist 
(list ‘cons 
(list ‘list 
“quote 
(list ‘quate 
(car body))) 
‘(cdr body))))) 
(cons (list ‘def 
(concat ‘is- type '- (car body) ‘?) 
(list ‘macro 
(body) 
(list ‘list 
‘eq 
(list ‘list 
“car 
‘(cadr body)) 
(list ‘list 
“quote 
(list ‘quote 
(car body)))})})) 
(append 
(defstruct-long-fields 
type (car body) (cadr body) 2) 
(defstruct-replace-fieilds 
(concat (car body) '- type) 
(cadr body) 


Figure 3.3 The defstruct-long Definition Without Backquote 
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3. Lincoln.| Macros 

Among the wide variety of macros in lincoln.|, one of them, causes 
inline lambda expressions to be automatically quoted. Recall that quote is 
normally used to inhibit evaluation of LISP forms. function is used in 4 
similar fashion to prevent functions from being evaluated. Since most inline 
lambda expressions require quoting, in lincoln.] lambda is defined as a 
macro that automatically includes function in front. (Wilensky, 1984, pp. 
119 &185) Here is its definition:? 


-> (eval-when (compile load eval) 
(def lambda (macro (body)$(function ,body))) )<CR> 


Several other macros in lincoln.) create mnemonic names for 
frequently used operations. The defstruct macro generates data structures 
and makes other macros to manipulate the structures. However, the 
majority of lincoln.| macros are predicates. 

a. Numerical Comparison Predicate Macros 

The macros =0, <0, >0, <=0, >=0, 0, >=, <=, <>, and =1 
represent predicates which check the conditions given in Table 3.2. Their 
syntax, with the exception of <= and =, is also used for the MacPitts 
comparison primitives (Lincoln Lab Report 662, 1983, p. 49). Note that LISP 
has <= and >= primitives. LISP primitives for increment (1+), decrement 
(1-), add (+) , subtract (-), equality (=), etc., are also used for MacPitts 


functional syntax. Each of these macros corresponds to a layout primitive 


? macro and nlambda are also similarly defined. 


BO 


Called an organelle which is covered in Chapter VI. (Siskind, 1982, pp. 14- 
15)(Lincoln Lab Report 662, 1983, pp. 25-26) 


TABLE 3.2 


NUMERICAL COMPARISON PREDICATES 


Predicate Name 


= 9 
<9 
>0 
>=9 
<=9 


<>9 
<> 
=1 


Predicate Test 


equality with zero 
negative sign 
positive sign 
non-negative value 
non-positive value 
less than or equal 
greater than or equal 
not equal to Zero 

not equal 

equality with one 


In addition to the numerical comparison macros shown above, 


lincoln.] has several macros that perform type checking. 


b. Type Predicate Macros 


LISP’s applicative nature allows functions to be passed as dats and 


provides data handling flexibility at the expense of performing very little 


type checking.® (Gray, P., 1984, p. 111) Whereas in LISP predicates usually 


have the form <name>p, in linconl.| they have the form <name>?. Take for 


example a LISP and a lincon.] predicate that checks if a number is odd: 


-> (oddp 3)<CR> 


;, LISP predicates often endina”p”. 


t 


8 For a discussion of type checking see (Aho, 1986, pp. 343-380). 
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-> (add? 2)<CR> 


;; lincoln.] predicates usually end ina" ?” 


In Franz LISP the function type returns one of fourteen types. 
(Foderado, 1983, pp. 1-1 through 1-6)(Wilensky, 1984, pp. 246-260) Table 


3.3 gives a list of lincoln.) predicates and their meanings: 


TABLE 3.3 


TYPE PREDICATES AND THEIR MEANINGS 


Predicate Name 


array? 
atom? 
bignum? 
bound? 
eq? 
equal? 


even? 
fis? 
finnum? 
flonum? 
function? 
list? 
magi‘? 
number? 
odd? 
string? 
member? 


Macros are used in 


Predicate Meaning 


is it an array? 

is it non-nil and not a list? 

is it an integer greater than a fixnum’? 
has it been given a value’? 

are they the same structure? 

do they return the same value’ 

(are they equivalent?) 

is it even’? 

is it a fixnum or a bignum? 

is it an integer between ~25! and 25!-17 
is it a floating point number? 

is it a machine coded function? 

is it nil or a list? 

is it null? 

is it a Dignum, fixnum or flonum’ 

is it odd? 

is it @ Sequence of characters? 

is an element a member of a list’? 


lincoln.) to create a consistent set of 


primitives out of many LISP functions that evolved with disparate formats. 


In addition to homogenizing existing LISP functions with macros, lincoln.] 


also provides a large number of functions. 
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B. FUNCTIONS 


1. APL Like Operators 
APL was one of the first programming languages to apply functions 





over whole data structures, thereby freeing the programmer from the 
tedium of iterating over elements.? John Backus, one of FORTRAN’s creators, 
wanted to reason algebraically about programs and suggested applying APL's 
ideas in & purely functional manner. The operations of this algebra would 
consist of applying, binding, selecting, “composing, reversing, mapping and 
reducing functions.” (MacLennan, 1983, p. 405) 

several functions are shown here as examples of the many useful 
functions with an APL flavor in this section: 


-> (such-that '( 0 -1 9 -2 -3) '<0)<CR> 

:- (such-that <list> <predicate>) 

;, Return all list elements satisfying the predicate. 
(-1 -2 -3) 


-> (slash ‘({a b c}(d c a D)(e f g h)) nil ‘union}<CR> 

-; (slash <list> <identity> <function>) 

;, Return the result of applying a function to a list’s elements. 
(abcdefgh) 


-> (sort '(1 425 3 9) '>)«CR> 

-- (sort <list> <predicate>) 

;, Sort a list’s elements by a predicate. 
(95432 1) 


-> (car-list ‘(C1 2)(3 4)(5 6)))<CR> 
-- (car-list <list>) 


: Find the first element of each of a list’s sublists. 
(135) 


7 For an excellent APL user's guide see (IBM, 1983, p. 13). 
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-> (replicate 4 '(man))<CR> 

>; (replicate <integer> <LISP form>) 

;; Copy a LISP form an integer number of times. 
((man)(man)(man)(man)) 


2. Selection Functions 
Franz LISP and APL both have a repertoire of list selectars.'9 Same of 
lincoln.l’s are shown:! | 


-> (nthset 3 ‘(9 BC D) ‘ea )<CR> 

-- (nthset <index> <list> <LISP form>) 

;; Replace the indexed position with a given LISP form. 
(A Be D) 


-> (nthinsert 3 ‘(a bc d) 'H)<CR> 

-- (nthinsert <index> <list> <element>) 

-; Insert the element after the indexed position 
(a bec H d) 


-> (nthdrop 3 ‘(A 8 C D))<CR> 
:: (nthdrop <index><list>) 
(A BD) 


-> (nthelem-list 

‘(1 2 6) 

‘(Many are called. Few are chaosen.})<CR> 
-- (nthelem-list <index> <list>) 
;; Pick the indexed elements out of a list. Notice that LISP consi- 
;; ders a space as the delimiter between atoms [e.g. chosen. or 
-- called. are one atom] 

(Many are chosen.) 


10 See (Foderado, 1983, p. 2-4) and (IBM, 1983, p. 52). 


11 Compare to the selectors presented in Section 11.C.3.b. 
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-> (nthset-list 
‘(1 4 6) 
‘(Sad is the woman who cries along the way.) 
'( Happy man siags) )<CR> 
:; (nthset-list <index-list> <template-list> <new-element-list>) 
;, Replace the indexed positions in the template-list with the 
»; respective elements from the new-element-list. 
(fappy is the aaa who siags along the way.) 


3. Set Functions 


A LISP list can be viewed as a set with elements, e.g.: 


{ element!, element2, ..., elementN } :== (<xelement>*) 
cset> is <list> 


With this point of view in mind lincoln.] provides a variety of set 


operators: 


-> (setify ‘((a b)(a bc) fa &f(a) 2'a fas))<CR> 

5; (setify <list>) 

:- Remove redundant elements from a list. Notice that (a b) and 
-- (a) occur more than once in the list. Italics are for emphasis. 
((a b c)(a b) 2 ‘a (a)) 


-> (union ‘(1 2 3 4) ‘(2 3.5 4 6 2))xCR> 
;; (union <set>;<set>s) 


(123456 7) 


-> (intersection ‘(1 23 45) '(3 45 6))<CR> 
;; (intersection <set>,<set>2) 


(3 45) 


-> (set- "(1 2 3 4 5) ‘(2 4))<CR> 

5; (set- <seto, <seto) 

;, Remove setz elements from sety. 
(135) 
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4. Numeric Functions 


The functions in this section deal mostly with integers or binary 


numbers: 


~> (ta-binary 15 7)<CR> 
:; (to-binary <integer> <bits>) 
;; Create a list that represents the binary equivalent of an 
;; integer with the given number of bits. 
(000111 1) 


-> (to-decimal ‘(0 00101 1 0 1))<CR> 
;; (to-decimal <binary-number>) 
45 


-> (ceiling 4.5)<CR> 

:; (ceiling <number») 

;, Return the least upper bound integer of a number. 
3 


-> (flaor 4.5)<CR> 

;; (floor <number>) 

;; Give the greatest lower bound integer of a number. 
4 


-> (rand 190)<CR> 
-- (rand <number>) 
;; Return a random integer between Zero and the given number. 
;; The result generated is 4 random integer and usually differs 
;, with different calls to rand using the same argument. 
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-> (deal 4)<CR> 

;; (deal <integer>) 

;, Make a randon list of the first four integers. 
(4023 1) 


-> (deal-list ‘(1 2 3 45 6))<CR> 
-- (deal-list <list>) 
;; Randomly order a Jist. 

(24135 6) 
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The wide spectrum of functions seen in this section crop up 
throughout MacPitts and LBS. surprisingly enough though, a large portion of 
the functions encountered in these programs are generated by one macro: 


defstruct. 


C. DEFSTRUCTS!2 

The lincoln.) defstruct [define structure macro] allows the user to 
create new data types. It automatically generates macros to create, select, 
change or type check instances of the data type. The following quote states 


the idea of a structure (Winston, 1984, p. 100): 
Conceptually, a strvcture is a collection of “e/gs and /7e/d ve/ues. 
We are allowed to define new structures by specifying their particular 
field names and default field values. We are further allowed to construct 
individual structures of any already defined type, to access those 
individual structures, and to revise them. However, in keeping with the 
spirit of data abstraction, we are not allowed to look at the way individual 


Structuresare represented internally, for we are supposed to be isolated 
from the actual representation. 


Defstructs are frequently used throughout LBS and MacPitts. They are a 
useful tool when a large number of different data types must be 
manipulated. The defstruct macro creates short or jong data structures. 

1. Short Defstructs 
The short defstruct has the following format: 


<short form> z= (xfield>* | { <field>*<list> }) 
<field> ::= <symbol> 


12 Refer to the examples in Section I1I.A.2. Lincoin.l's defstruct macro 
is slightly different from those found in other versions of LISP. 


So? 


Therefore, a short defstruct looks like a list with fields which are all 
symbols, except for the last field which can be a list. But, there is more to 
this structure idea than just the list format: evaluating defstruct creates 
a data type with the specified fields. In addition, defstruct automatically 
generates three other macros: one to construct instances of the data type 
(constructor), another to select field values (selector), and finally one to 
change field values (mutator). Streching BNF a bit [a short defstruct has 
three functions and a list of fields], this is represented as: 


<short-defstruct> := -> (defstruct <type> <short form>}<CR> 
<short-defstruct> ::= <short-selector><short-mutator> 
<short-constructor> 
(<field value>* | { <field yvalue>*<list> }) 


—~ @. Short Constructor 


To create instances of a data type with parameters for the fields 
a constructor macro of the following format is used: 


<short-constructor> := make-<type> 
(<field value>*) := -> (make-<type> ["l<field-value>*+)<CR> 


For example:'$ 


-> (defstruct point 
(name # y layer attributes) )<CR> 
;, Create 6 data list of the farm: (name x y layer attributes). 
;; Defstruct returns the name of one of the macros it creates. 
replace-point-attributes 


-> (make-point ‘in 3 7'NM ‘((signal)}(river)))<CR> 
;; Instantiate a point data type with the given parameters. e.g. 
3; name := in, ¥:= 3, y:= 7, layer := NM, etc.. 

(in 3 7 NM ((signal)(river))) 


'3 A point is fully described in Chapter 1V.A.2. 
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Notice that the result is a list with all the field values placed in 
the order they were entered. 
b. Short Selector 


Befstruct also creates selector macros to obtain field values. A 
short selector macro that picks out <field>; of a <type> short defstruct has 


the format: 


<short-selector> ::= <tupe>-<field>; 
<field-value>, ::= 
“=> (xtyper-<field>, {"(xfield-value>t) | 
(list ['l<field-value>t}} )<CR> 
For example: 
-> (point-name ‘(in 3 7 NM ((signal)}(river))})<CR> 


:- Get the point’s name: 
in 


-> (point-attributes ‘(uss -2 7 ND ((power)(out))))<CP> 
:- Get the point’s attributes: 
((power)(out)) 


c. Short Mutator 
The third macro automatically generated for a short defstruct is 
used to change field values. Mutators replace a <type> defstruct's <field- 
yvalue>; with <field- 7e@-value>; and have the following form: 


<short-mutator> := replace-<type>-<field>. 
(<field-value>,...<field- 7e4-valued, ...<field-value>y) :: 
-> (replace-<type>-<field>, 
{ ‘(<field-value>*) | Gist [']<field-value>*) } 
{ [‘]<field- 7e-value>; })<CR> 


89 


The following examples illustrate the use of mutators: 


-> (replace-point-layer 
‘{in 3 7 NM ((signal)(input))) 
'NP)<CR> 
;; Replace the point’s layer with NP: 
(in 3 7 NP ((signal)(input))) 


-> (replace-point-y 
‘(in 3 7 NM ((signal)(river-router))) 
11)<CR> 
;; Replace the point’s y coordinate with 11: 
(in 3 11 NM ((signal)(river-router))) 


Short defstructs are an application of the principle of data 
abstraction to a list. Each field is given a name, and functions which use 
those names to manipulate the structure are automatically created. This 
idea is carried one step further in the long defstruct to allow 
differentiating Detween closely related structures. 

2. Long defstructs 

An extension of the short structure concept which allows the fields to 
be data structures and includes type checking is the long structure. The type 
is the genvs'4 and the cases the sgecyes. The long structure's syntax is 
superficially the same as a short structure format: 


<Jong form> «:= { <case> ({<case-field>* | <case-field>*<list>}) }* 
<Case-{ elo = <slimuale 
<long-defstruct> := -> (defstruct <type><long form>)<CR> 
<long-defstruct> ::= <long-constructor><long-selector> 
<Jong-mutator><long-interrogator> 
{{<case> {<case value>* | <case value>*<list>}}}* 


'4 “In Aristotelian logic, a very wide and comprehensive class or kind, 
subclasses of which may be called species.” (Flew, 1979, p. 131) 
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In Both the short and long structure cases defstruct is used. 4 long 


defstruct example with a tree genus and eight species: 


-> (defstruct tree 
null () 
rect (iayer left bottom right tap) 
symbol-call (name) 
move (tree dx dy) 
rotcw (tree) 
rotccw (tree) 
mirrors (tree) 
mirrory (tree)})<CR> 


This long structure creates a tree data type. There are eight tree 
cases: null, rect, symbol-call, move, rotcw, rotccw, mirrors and 
mirrory'>. Note that five of the tree cases have a tree in their field. The 
field arguments are also defstructs! A long structure has four associated 
functions: constructors, selectors, mutators and interrogators. 

a. Long Constructor 
As in the short structure, macros to construct data type instances 
are automatically generated in the long structure. A constructor that 
Instantiates the species <case,>-<type> has this format: 


<long-constructor> «= make-<case>,-<type> 
(<case>; <<case>;-field-value>*) ::= 
-> (make-<case>;-<type> { [*l<<case>;-field-value>}*}<CR> 


'SThese eight cases correspond to eight basic operations on rectangles. 
Null is no action or no rectangle. Rect is a rectangle with the given layer 
and dimensions. Symbolt-call represents a method for generating 
hierarchical representation. Move, rotcw, rotccw, mirrors § and 
mirrory represent respectively a displacement by dx and dy; ninety degree 
clockwise and counterclockwise rotation; and a flip about the x axis or the y 
axis. The operators these trees represent are described in (Crouch, 1984, p. 
8). 
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This is best shown in a few examples: 
-> (make-rect-tree 'ND 0 1 2 3}<CR> 
(rect ND 01 2 3) 


-> (make-null-tree)<CR> 
(null) 


-> (make-move-tree ‘(rect ND 0 1 2 3) 5 9)xCR> 
(move (rect ND 0 1 2 3) 5 9) 
D. Long Selector 
In order to pick <field>;s value out of a <case>;-<type> species the 
following format 1s used: 
<long-selector> = <case>;-<type>-<field>; 
<case>;-<field>;-value ::= 
-> (<case>,-<type-<field>; 
{"{<case>; <<case>;-field-value>*) | 
(list { [‘]<case>; }{ ["]<<case>;-field-value> }+ } } )<CR» 
A few examples can make this clearer: 
-> (rect-tree-layer ‘(rect NI 1 2 3 4))<CR> 
NI 
-> (move-tree-tree ‘(move (rect NI 1 2 3 4) 5 9)})kCR> 
(rect NI 1 2 3 4) 
c. Long Mutator 
Field values are modified in a fashion similar to the short 
Structure mutator, in order to replace <field>; of species <case,>-<type> a 


long mutator must De used as follows: 
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<long-mutator> ::= replace-<case>;-<type>-<field>; 
{<case>; | 
<<case>.-<field>, -value> ... 
<<Case>;-<fleld>;- 7en~value> ... 
<<case>:-<field>y-value> ) ::= 
-> (replace-<case>;-<type>-<field>, 
{"(xcase>; <<case>;-field-value>*) | 
(list { [‘)<case>; }{ ["]<<case>;-field-value> }* ) } 
{I"]<<case>,-<field>,-7en-value>} )<CR> 
This is best seen in a few examples: 


-> (replace-rect-tree-top ‘(rect NM 1 2 3 4) 15}<CR> 
;- replace a “rect-tree” species’ “top” field with 15. 
(rect NM 1 2 3 15) 


-> (replace-move-tree-dy 
‘(move (rect 1 2 3 4) 9 8) 
11)<CR> 

5; replace a “move-tree” species’ “dy” field with 11. 
(move {rect 12 3 4) 9 11) 


The tree example has shown that a long structure adds a level of 
complexity to the defstruct concept. Why bother? Because there is a big 
advantage to be gained in grouping similar ideas together and then 
differentiating between them. In order to do this e long defstruct also 


creates interrogators. 
d. Long Interrogator 


Long structures offer a limited form of data type checking with 
their interrogator macros. A check to see if a structure is a <case>.-<type> 


species can be made as follows: 
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<long-interrogatorm ::= is-<type>-<case>, ? 
{t | nil} <= 
-> (is-<type>-<case>;? 
{'{xcase>, <<case>.-field-value>*) | 
(list { [*]<case>, }{ ["]<<case>y-field-value> }* } })<CR> 


For example: 


-> (is-tree-rect? ‘(rect ND 1 2 3 4)})<CR> 
is “(rect ND 123 4)" a “rect-tree” ? 
t | 


-> (is-tree-nuli? ‘frect ND 1 2 3 43)<CR> 
Ig" (rect ND 123 4)" a “null-tree” ? 
nil 


-> (is-tree-move? (move (rect ND 1 2 3 4) 5 9)}xCR> 
-- Is “(move (rect ND 123 4)5 9)" a “move-tree" 7 
{ 


Keep in mind that the interrogator macro only checks that the 
correct case name is at the head of the list which composes the data 
structure. In other words, no check is being made to ensure the correct value 
types are Being placed in the field slots, or even that the structure has the 
correct number of fields! 

5. General Field Structure Checks 
defstruct checks its first two arguments to determine whether a 
short or long format is required. if its first argument is an atom and the 
second argument a list then a short format is made. If its first argument is 
an atom and the second argument is also an atom then a long format is made. 
Otherwise, an error message is printed if the fields are null or the first 


argument is a list. 
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Tha Ghar check that is made ensures that onig tne last figia in a 
defsiruci is oa jist, This uccurs in deisirvuci-suuri-fieids anu 
deisiruct-iong-fieids where the fieids are also checked to ve NOt amity. 

4. Summary 

defstruct offers the programmer a tool for data abstraction. This 
idea along with the mnemonic character of constructors, selectors, 
riutators and interrogators are great aids in data manipulation. defsiruci: 
are extensively used in LOS and MacPitts. It might also be speculated tial wo 
some degree the mind-body paradigm is reflected in MacPitis: function-daia 
language and controller--data-path architecture. In any case, Tabie 2.4 


presents 4 defstruct surnmary: 


TABLE 2.4 
DEFSTRUCT FUNCTION SUMMARY 
Function gem, sine tune Long Structure 
Constructor make-<type make-<case>,-<type- 
selector <type>r-<field>, case>,-<type>-<field>, 
mucetor replace-<type>-<tield>,; replace-<case>;-<typex-<i Dee 
interrogator None is-<type>-<case>,? 


IV. LINCOLN LABORATORY LISP LAYOUT LANGUAGE: LS 


LS is a LISP based language for hierarchical representation and 
manipulation of VLSI circuits. It uses the basic predicates, functions and 
data structures provided in lincoln.) to create operators for manipulating 
‘ rectangles and points. With these two building blocks more complex 
Structures can be built. These constructed units can then be used as basic 


blocks to create other structures in a hierarchical fashion. 


A. GLOBAL VARIABLES AND DATA. TYPES 

Global variables in LS are used to determine aspects of the technology the 
circuit will be implemented in; and, thereby constrain the permissible ways 
data is manipulated. There are several data types in LS. They are created and 
handled in a consistent manner using defstruct!. 

1. Global Variables 

There are several global variables in Ls that toggle other processes 

and thereby affect the behaviour of LBS or MacPitts. The most important 
ones deal with setting technology dependent factors such as mask layers, 
process dimensions [Microns/lambda: w/A], etc.. The user is provided with 
functions to access these global variables and check or modify their status. 
Table 4.1 lists global variables and their functions as @ convenient 


reference: 


' Refer to Chapter III. 
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TABLE 4.1 
GLOBAL VARIABLES AND THEIR FUNCTIONS 





Variable Status Check Status Modifier & Options 
--L3-symbol- (L5-symbol- (L5-symbol-storage! 
storage storage) ‘l{<on-disk | 


in-memory>}} 


--L5-technology (technology) (technology! [‘]{<amos 
| cmos | cmos-pw | 
cmos3 | sasi scmos>}} 


--L5-minimum- = (minimum-  (minimum-feature- 
feature-size feature-size) size! <centi-u per A>) 


--L5-symbol-list (L5-symbol-list}& (add-symboi-to-L5- 
(create-called- symbol-list <symbol>) 
symbol-item 
<position>) 
--L5-symbol- --L5-symbol- (setq --L5-symbol- 
number number number <integer>) & 
(symbol-number) 
--L5-symbol-port (L5-symbal-port) (setq --L5-symbol- 
port <port>) 


--L5-symbol-file (L5-symbol- file} (setq --L5-symbol- 
file <file>} 
£4 (allowed-layers)} #8 
£4 (allawed-conducting- Fr" 
layers} 
£4 (layer-table} #2 
BE (allawed-technologies}) = x= 


All of the global variables can be changed using setq. Functions with, 
** operate by checking the technology global variable and returning an 
appropriate response without setting any variables. The, **, denotes that to 


change the values returned by these functions the LISP source code has to be 
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modified. Finally, the oderator with, &%, is a constant function that Goesnt 
set any variables and returns. 
(amos CMus CINBS-DwW CMaOs3 sus scinVs} 


Giobai variables may nave different default vaiues: 


T&BLE 4.2 

GLOBAL VARISBLE DEFAULT VALUES 
Global Variable | Default Value 
--L3-symbol-storage un-disx 
--L3-symboi-pori nil 
--LS-symbali-file nil 
--L5-sygmbal-ist nil 
--L5-symbol-aumber nil 
--L5-technology Amos 
--L5-minimum-feature-size 230 
--L5-read-stacx nil 


when the function LS-symboi-file (cr L5-symboi-port) checks 
ifs associated global variabie s value and finds it to De mal, then the surnoa! 
file [or symbol port] is changed so that it’s located in the /tmop directory. 
Tne file name is formed by concatenating the current UNIX® process nurnber 
with an acronym for LS symbol, © Lasym ©. Therefore, globai variabies 
operate in the foliowing fashion:¢ 


® Ps<CR> 
* Give the current UNIZ® process number. 
12904 


* lisp<CR> 
{Franz Lisp Opus 38.59] 


4 4 discussion of the symbol list is postponed until the symbal 
defstruct inthis section and the defsymbol function in Section IV C.1. 
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-> (L5-symbol-file}<CR> 
This file is used to output CIFS results. 
fimp/LSsym12904 


-> (L5-symbol-port)<CR> 
»; A port is a LISP 1/0 device. 
>/tmp/L5sym12904 


-> (technology! ‘cmoas)<CR> 

5, oet the technology to cmos and list out its layers. 

;, These symbols correspond to CIF layers, e.g. CD = n-type 

diffusion, CP = pelusilicon, CM = first leyer metal, etc.. 
(CD CP CM CM2 CS CC C& CW N# HP} 


-> (technology)<Cr> 
;, The current technology is complementary metal oxide 
3, semiconductor 

cmos 


-> (technology! 'scmos)<CR> 
;;These are Calma scalable cmos CIF layers, 2.g. CMS = 
Pie el Aecie= eld, Chioeemmalsilicon, etc.. 
(CMS CMF CP6 CAA CUA CCP CCA CP CIN 
CSP CSN Tas} 


-> (minimum-feature-size! 58)<CR> 
-- Set 50 centimicrons to be | lambda unit. 
50 


-> (minimum-feature-size)<CR> 
;; Currently 50 centimicrons are | lambda unit. 
50 


ra 


* "The Caltech Intermediate Form (CIF Version 2.0) is a means of 
describing graphic items (mask features) of interest to LSI circuit and 
system designers.” (Mead, 1980, p. 115) Also see (Sequin, 1980, Chapter 7) 
and (Scott, 1986, Magic Tutorial *9 and Magic Technology Manual *1-2). 
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-> (allawed-technologies)<Cr> 
3, These are the technologies for which CIF layers have 
>; Been entered into L5. 

(nmos cmos cmos-pw cmos3 sos scmas) 


-> (allowed-layers)<CrR> 
;; Return the current technology's layers: 
(CMS CMF CAA CUA CCP CCA CWP CWN 
CSP CSN COS) 


-> (pp allawed-conducting-layers)<CrR> 
;; Pretty print the definition of the function © allawed- | 
3; conducting-layers “. Examining the result reveals that 
;, this function is simply a large conditional statement 
;; that checks the current technology and returns a list of 
;; conducting layers. To add another set of conduction 
;; layers, simply add the new technology name to the list 
;; In the body of allowed-technologies and add a 
;; statement in allowed-conducting-layers of the form: 
>; (Ceq ‘<new-tech>) (technology)) ‘(<layer-list>)) 
(def allawed-conducting-layers 
(lambda () 
(cond 
({eq 'nmos (technology))'(NM NP ND)) 
((eq ‘cmos (technolagy)}'(CM CP CD CM2)) 
((eq ‘cmos (technaloqgy))'(CM CP CD CM2}) 
({eq ‘sas (technolagy))'(SM SP S$15)) 
({eq ‘cmos-pw (technology))'(CM CP CD)) 
({eq ‘scmas (technoalaogy))'(CMS CMF CPG CSP 
CSN)) 
(t (L5-err ‘| That technology is not 
recognized by L51))})) 


Global variables and their effects will again be encountered in 


Section IV.C, in the meantime, a look is taken at LS’s data types. 


100 


2. L3 Data structures 
All LS data structures are created using defstruct. The generic 
object in LS is called an item and is composed of rectangles and labels. 
(Crouch, 1983, p. 2) Since an item is a grouping of smaller objects it is 
surrounded with an imaginary rectangle [box] which encompasses all its 
elements. The smallest box which encloses an item is called the Minimum 


Bounding Box [MBB]. (Ayres, 1983, p. 64) The syntax for an item is: 


Category 
<item> ::= 


{<left>|<bottom>| 
<right>|<top>} ::= 
<points> = 
<point> ::= 
<attributes> ::= 
<called-symbol- 

Names> ::= 
<tree> i= 


<null-tree> ::= 
<rect-tree> ::= 
<symbol-call- 
tree> ss 
<move-tree> ::= 
<rotcw-tree>d ::= 
<rotccw-tree> ::= 
<mirrorx-tree> :: 


<mirrory-tree> ::= 


TABLE 4.3 
AN ITEM'S SYNTAX 
syntax 


(<left><bottom><right><top><points> 
<called-symbol-names><tree>) 


<number 

(<point>*) 
(<name><x><y><attributes>) 

{ (<symbol>*) | ({ksymbol>)}*) } 


(<number>*) 

{ <null-tree> | <rect-tree> | <symbol-call-tree> | 
<move-tree> | <rotcw-tree> | <rotccw-tree> | 
<mirrorx-tree> | <mirrory-tree> } 

(null) 

(rect <layer><left><bottom><right><top>) 


(symboi-call <number>*) 
(move <tree>) 

{ratcw <tree>) 

{rotccm <tree>) 
(mirrors <tree>) 
(mirrory <tree>) 


An item structure contains two other structures within it: a list 


of paint short structures and a tree long structure. First, a look at the 
item structure and the creation of a simple item: 
101 


-> (defstruct item 
(left bottom right top 

points 

called-symbol-names 

tree)) 
;; The left, bottom, right and top fields describe the MBB, 
3 1.€., Xin, Unin, Amery Umax, UNG Boles (lela COntatiess 
;; list of points [labels]. The next field is a list of digits 
;; Indicating which symbols on the LS-symbol-list are 
;; used by this item. The tree field is a list summarizing 
;, operations performed on the item. 

replace-item-tree 


Since an item is a short defstruct it comes with constructor, 
selector and mutator macros. For exarnple, to create an item composed of a 


metal and a diffusion rectangle with two point labels: 


-> (make-item 1 2 3 4 
‘(((in) 1 2 NM (power)) 
({out) 2 2 ND (external))) 
nil 
((rect NM 1 2 2 3) 
{move (rect ND 0 0 1 1) 2 3))) ) 
-- Make an item with a MBB with coordinates (1 2) and 
-- (3 4) an “in” label at (1 2) on metal, an “out” label 
;; at (2 2) on diffusion, and no symbol calls. The 
*- primitives this item is composed of are: 
3; (1) A metal rectangle with coodinates (1 2) and (2 3) 
;; (2) A diffusion rectangle with coordinates (0 0) and 
; (1 1) that has been translated to the right 2 units 
Bs and to the top 3 units. 
(1234 
‘(((in) 1 2 NM (power)) 
((out) 2 2 ND (external))} 
nil 
({(rect NM 1 2 2 3) | 
(move (rect NBD OO 1 1) 2 3)))) 
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AS is seen in the above example, a list of points is a field in an item. 
The point short structure is implemented as follows: 


-> (defstruct point (name # y layer attributes)) 

;; A point is a label. Points have names, are located at 

;, a specific x and y location and are attached to a layer. 

;; A point’s attributes can give descriptive information 

;; to guide functional application. For example: points 

3, with the attribute “external” are actually plotted when 

;, CIF is created; the power attribute is used by the 

;; function power-line-positions [in the MacPitts program 

;; organelles.1} to find Vdd or Vss locations . These 

;; positions are then used by layout-metal-lines [in 

;; organelles.]] to lay down a metal line grid. 
replace-point-attributes 


An example now shows the creation of a point: 
-> (make-point ‘(in}) 1 2 ‘CM 
‘((power)}(external))) 
;; Make a point whose name is “in”, located on CMOS metal 


- at (1 2), and with “power” and “external” attributes. 
({in) 12 CM ((power)(external))) 


An item's fifth field is a summary of other items used to construct 
the item. This <called-symbol-names> field is composed of a list of 
numbers. These numbers represent symbols. 4 symbol is a structure 
containing an item's salient information. Computer time and memory use are 
reduced when frequently used items are constructed once and then referred 
to whenvever needed. Whenever an item is made using the defsymbol 
function [See Section 1V.C.1], a pseudo-item, a symbol, is placed in the LS- 
symbol-list. Any use of this item will be reflected in the <called-symbol- 
names> field; these numbers indicate a symbols position in the L3- 


symbol-list. A symbol has the following structure: 


103 


-> (defstruct symbol | 
(iD left bottom right top points | 
internal-symbols nest-level tree)) 
;; Symbols are used by the defsymbol4 function. Defsym- 
;; bols are items that are immediately stored in CIF 
;; format in the LS-symbol-file.»A symbol representing 
;; the item is then placed on the L5-symbol-list. The LS- 
3; symbol-list has a symbol for each defsymbol that 
3; has been called; consequently, future calls to a 
;; defsymbol with the same parameters are referred to in 
>; the calling item's called-symbol-names position [a list 
;; of numbers giving the position in the La-symbol-list of 
;; the symbol representing the called defsymboll. 
replace-symboi-tree 


An item's final field is 4 tree, with the following structure: 


-> (defstruct tree 
null O 
rect (layer left bottom right top) 
symbol-cail (name) 
move (tree) 
rotcw (tree) 
rotccw (tree) 
mirrors (tree) 
mirrory (tree)) 
:; A tree is a representation for an item operator®. An 
;, Item's tree is a summary of all the operations 
> performed on the item. A macro name is returned. 
replace-mirrory-tree-tree 


LS's major data structures are items, points, symbols and trees. 


They provide a framework for manipulating geometric objects. 


4 See Section IV.C.1 for more on defsymbol. 
‘ This occurs only when the LS-symbol-storage is set to “on-disk”. 


56 See Section |V.B.2 for a discussion of item operators. 
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B. ITEMS AND THEIR OPERATIONS 

The item data structure is the basic Duilding Block in LS. However, 
having to use the make-item function can be a bit tedious. Therefore, L5 
has primitive functions for creating rectangles for boxes] and marks [a 
point that has an item format]. L5 also has operators for moving, rotating, 
etc., items and their points. Items and marks can be grouped together to 
form larger units using the merge function. 

1. [tem Creation 

LS has four functions for creating primitive items: null-item, rect, 


box and mark: 
TABLE 4.4 


FOUR PRIMITIVE ITEM CREATING FUNCTIONS 





Function Arguments 

null-item none : 

rect | SUC Te ee Ula Garman? Urner? 

box <Jayer<length><width><xpeanter>?<Ucenter > 
mark <name><x><y><layer><attributes> 


Some examples of these primitive functions are: 


-> (null-item)<CR> 

: & null item is useful as a default value for a conditional since 

;; it has an item's format with only null fields [Crouch, 1983, p.5] 
(nil nil nil nil nil nil (nuil)) 


-> (rect ‘CD 0 1 4 8)<CR> 
;; A rectangle has no points or symbol calls. it consists of its 
:- MBB coordinates (0 1) and (4 8) and a rect-tree. 

(0 148 nil nil (rect CD 0 1 4 8)7) 


? Note the difference between the <LISP form>, (rect ‘CD 0 1 4 8), and 
the <expression>, (rect CD O 1 4 8). The first is a function, the second is a 
data object. The first evaluates its arguments, the second is a list of 
parameters. Refer to Section II.C.1. 


os 


-> (bou 'CM 2 8 6 4)xCR> 
;; A box is an alternate method of defining rectangles. It's 
3; similar to the way CIF defines boxes. 
(5.0 0.0 7.8 3.0 nil nil (rect CM 5.0 0.0 7.0 8.0)) 


-> (mark ‘in 5 6 ‘CMF ‘(external))<CR> 
-- A mark is a point that has an item shel] built around it. Notice 
;; that the name is automatically converted to a list whereas in 
;; using make-point it had to be input as a list®. The name can be 
;; an atom or a list of atoms. Attributes can be either a list of 
-- atoms or a list of lists: (<atom>*) or (<list>*). 

(565 6 (({in) 5 6 CMF (external))) nil (null)) 


With rectangles and labels any Manhattan geometry can be 

represented by joining or moving these basic elements. 
2. ltem Operators 

LS's flexibility is due to the many functions that it contains for 
performing common layout operations so that complex structures can be 
built up hierarchically from simple building blocks. [Crouch, 1983, pp. 8- 
11]? Many of these operations either move or join objects. 

a. Translation and Merging Operators 

All layouts in LS are referenced to an imaginary grid in lambda 

units with center at (O 0). The next group of functions work within this 


Cartesian framework to assemble or shift items: 


® 15 functions which search among points in an item assume that a 
point’s name is a list. See the functions find or align in Section IV.B.2. 


9 For a discussion of desirable operators see [Ayres, 1983, pp. 84-88]. 
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Function 


move 
home 
first- 
quadrant 
second- 
quadrant 
third- 
quadrant 
fourth- 
quadrant 
merge 
merge-list 
align 


align-items 


rotcw 

rotccw. 
mirrors 
mirrory 


TABLE 4.5 


Arguments 


<item><dx><dy> 
<item> 
<item> 


<item> 
<item> 
<jtem> 


<jtem>* 


(<item>*) 
<item> 
<point-name> 
<coordinate> 
<item>, 
<point-name>, 
<item>> 
<point-name>» 
<item> 

<item> 

<item> 

<item> 


TRANSLATION AND MERGING OPERATORS 


Description 


move an item.by dx and dy units 
place item's top left at (0 0) 
place item's bottom left at (0 0) 


place item's right bottom at (0 0) 
place item's right top at (0 0) 
same as home 


make one item out of several items 
make one item out of alist of items 
move an item so that the named point 
is placed on the given coordinate 


<item>> is moved so that its named 
point aligns with <item>,'s point 


rotate 90° clockwise about (0 0) 
rotate 90° counter-clockwise... 
mirror about the x axis 
mirror about the y axis 


A brief look at the application of some these functions follows: 


-> (move 
‘(0 0 10 10 anil nil (rect NM O 0 10 10)) 3 5)<CR> 
;; Move the metal rectangle to the right 3 units and up 5 units. 
;; Notice how only the MBB is changed [addition and consing 
:- elements into alist are fast]. |.e. The result of the operation 
:- could have been: (35 13 15 nil nil (rect NN 35 13 15)), but 
;, if the tree was composed of many elements then each one 
-- would need to be moved also! 
(35 13 15 nil nil (move (rect NM 0 0 10 10) 3 5) 
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-> (let 
:; Set test-item := (-3 0 6 12 (((vss) ...) nil ((rect...)(rect...))) 
((test-item 
(-3 8612 
(((uss) 1 2 NM (external))((in) 3 4 ND nil)) 
nil 
((rect NM -3 0 0 4)(rect ND 0 0 6G 12)) ))) 
-- Move test-item so the vss point is at (0 0). 
(align test-item ‘uss ‘(0 0)) )<CR> 
- The result: 


(-4-2519 
(((uss) 0 8 NM (enternal))((in) 2 2 ND nii)) 
nil 
(move 
((rect NM -3 0 0 4)(rect ND 0 0 6 12)) 
-1 -2)) 


‘Before proceeding with other examples a primitive layout item 


available in MacPitts, a lagout-inuerter, [Figure 4.1] is introduced: 


-> (layout-inverter 4 t)!9<CR> 
;; This is an inverter defsymbol composed of several cuts which 
;, are also defined as defsymbols. Note that the item's tree is 
;; @ symbol call, indicating that this item has a symbol in the LS- 
;, symbol-list. The item is composed of <symbol>s; 467 and is 
;; itself <symbol>7 
(89 -20 20 0 

(((gnd) 18 -18 NM (power)) 

((int) 14-20 NP (in)) 

((udd) 8 -2 NM (power))) 

(1 46 7) 

(symbai-call 7)) 


10 The layout-inverter function is found in organelles.| (part of 
MacPitts]. Its syntax is: daygout-inverter <pullup/pull-down 
ratio><mark>) 

<mark> := { t| nil } 
Toggling <mark> to t places a label at the “in” point: 
(mark ‘inl 14 -26 ‘NP ‘(in))) 
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This item can be manipulated as follows: 


-> (mirrors (jaygout-inverter 4 t))<CR> 
; Flip the inverter about the x axis. 
(0 6 20 20 
({({gnd) 18 18 NM (power)) 
({int) 1420 NP (in)) 
((udd) 8 2WNM (power))) 
(1 46 7) 
(mirrers (symbol-call 7)) ) 


More complex objects can be created out of previously defined 


items as seen in the next examples [See Figures 4.2 and 4.3]: 


-> (let 
({inverter (lagout-inverter 4 t))) 
(align-items 
inverter ‘vdd (mirrorx inverter) ‘vdd))<CR> 
;; Align the inverter and its mirror image so they have a common 
;; Vdd power point. 
(0 -20 20 16 
(({gnd) 18-18 NM (power)) 
((int) 14-20 NP (in)) 
((udd) 8 -2 NM (power)) 
((gnd) 18 14 NM (power)) 
;; The next point was cutoff by the plotting routine. 
({(int) 14 16 NP (in)) 
((udd) 8 -2NM (power)) ) 
(1 46 7) 
((symbol-call 7) | 
(move (mirrors (symbol-call 7)) 0 -4))) 


The next item, shown in Figure 4.3, illustrates the use of the 
merge operator. Notice that this item has the output of one inverter 


connected to the Yss power source; and as such, is a non-opersational layout. 
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-> (let 
({inverter (lagout-inverter 4 t))) 
(merge inverter (move inverter 20 0)) )<CR> 
;; Merge the inverter and its moved image [Figure 4.3]. 
(9 -20 40 0 
(({gnd) 18 -18 NM (paower)) 
({ial) 14-20 NP (in)) 
((udd) 8 -2 NM (power)) 
({qnd) 38 -18 NM (power)) 
({(int}) 34-20 NP (in)) 
({udd) 28 -2 NM (power)) ) 
(1 46 ?) 
({symbal-call 7) 
(move (mirrorx (symbot-call 7)) @ -4))) 


The next operators aid moving and merging operations. 
_b. Query Operators 
L5 has a group of operations that return an item's width and 
length, check if an item is null and abbreviate the defstruct field 
selector functions for the MBB dimensions [e.9., item-left is shortened to 


left]. The argument to all these functions is an item: 





TABLE 4.7 

ITEM QUERY OPERATORS 
Function Description 
1s-item-null? are the item's tree and points null? 
left same as item-left 
right same as item-right 
top same as item-top 
bottom Same as item-bottom 
item-width difference between the item's right & left!! 
item-length difference between the item's top & bottom 


1 A nuall-item’s Jength or width is 0. Originally LS returned nil for a 
null- item. A mark also has 0 length and width. 
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An item's dimensions are useful for placement operations. Another 
way to access an item is by labeling it. 
c. Point Operators 
Labels are used by simulation, routing and timing programs. LS has 
a number of functions that manipulate or use an item's points. They are 


Summarized in Table 4.7 below: (Crouch, 1983, pp. 11-14) 


TABLE 4.7 
POINT OPERATORS 
Function Arguments Description 
find <item> get the first point in the item with 
<point-name> the given name 
find-all <item> return all the item's points with the 
<point-name> given name 
find- <item> find all the item's points with given 
attributes <attributes> attributes as a subset of their 
original attributes 
match-that <thing> give the list elements which satisfy 
<list> a predicate relation with the given 
<predicate> “thing” 
&optional <tail> 
unmark <item> take the point off the item 
<point> 
unmark- <item> delete points with the given name 
name <name> from the item 
unmark- <item> remove points whose attributes 
attributes <attnbutes> contain the given attributes as a 
subset 
unmark- <jtem> discard points that contain any 
attributes- <attributes-list> element of the given attributes list 
list 
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TABLE 4.7 (CONTINUED) 
POINT OPERATORS 


Function Arguments Description 
contain <item> prepend the given name to every 
<name> 


point’s name in the item 


The following examples show how point operators work. The 
layout-inverter introduced in Section 1V.B.2.B is again used here. This 


time the +5 Volt power point is extracted from the item: 


-> (find (loyout-inverter 4 t) ‘wdd)<CR> 


;; Find the first point named “ydd" in 4 layout-inverter. Refer to 
;, the previous example for (layout-inverter 4 t). 
({(udd) 8 -2 NM (pemer)) 


A more complex item, lagest-end, is shown below [Figure 4.4]: 


-> (layout-and 4 4 t)<CR> 
;; Another MacPitts organelle. This one “ands” two inputs. Note 
;, that the organelle calls <symbol>s; 4.69910. It itself is 
3; <SyMbOl>19. The list (1 46 8 9 10) shows the symbols. 
(9 -43 25 6 

(((gnd) 18 -18 NM (power)) 

((udd) 8 -2 NM (power)) 

({gnd) 21 -41 NM (power)) 

({(int)} 14-43 NP (in)) 

({in2) 19-43 NP (in)) 


((vpdd) 8 -25 NM (power)) } 
(1 468 9 19) 


(symbol-call 19) ) 
Since this item has more than one +5 Volt power point, they can 
be extracted using the following procedure: 


-> (find-oll (lagout-ond 4 4 t) 'pdd)<CrR> 
;; Find all points named “ydd" in a layout-and item. 


(({ydd) 8 -2 NM (pewer))((vdd) 8 -25 NM (pewer))) 
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-> (let 
({test-item 
(9034 
(({in) 2 3 NB (external top)) 
((udd) 1 1 NM (power left river)) 
({out) 3 3 NP (external signal tap)) ) 
(1 2 3) 
(symboi-call 3) ) )) 
(find-attributes test-item ‘(external top)) )<CR> 
; Find all points with “external” and “top” as a subset of their 
- attributes.'2 This method uses attributes to find points. 
(({(in) 2 3 ND (external top)) : 
((out) 3 3 NP (enternal signal top)) ) 


After a point has been used it is sometimes desirable to remove it 
fram the item. There are several functions that accomplish this. Here are 
two examples of how to remove ‘one point. The first method requires that 


the entire point be specified as follows: 


-> (unmark 
(layout-inverter 4 t) 
‘((gnd) 18 -18 NM (power)) )<CR> 
:- Remove the point from the item. | 
(0 -20 20 0 
(((udd) 8 -2 NM (power)) 
((int) 14-20 NP (in)) ) 
(1 46 7) 
(symbol-call 7) ) 


The second way to delete a point is to use its name: 


12 The attributes could be a list of lists instead of a list. In that case 
when find-attribates is applied the attributes parameter has to be a list 
of lists. If the points are of the form: 

({<name>) <x><y><layerm( {(kattribute>*)} 9) 

Then to use find-attributes: 

(find-attributes <item> ‘((<attribute>,)..d<attribute>, ))) 


11? 


-> (unmark-name (layout-inverter 4 t) 'vdd)<CR> 
-- Remove the named point from the item. 
(0 -20 20 9 
(((int) 14-20 NP (in)) 
({gqnd) 18 -198 NM (vemmel? ) 
(1 46 7?) 
(symbol-call 7) ) 


More than one point can also be removed by either using a list of 
attributes. The first method removes points that have @// the specified 
attributes as part of their attributes. In the next example any point with 


both an “ external “ and “ top “ attribute is deleted, as shown below: 


-> (let 
((test-item 
(9034 


(({in) 2 3 NM ((external)(top))) 

((udd) 1 1 NM ((power)(left)(river))) 
((out) 3 3 NP ((external)(signal)(top))) ) 
(1 2 3) 

(symbol-call 3) ) ) ) 

(unmark-attributes test-item ‘((external)(top))))<CR> 
;, Remove any points that have “external” and “top” as part of 
:- their attributes.!5 

(9934 
((udd) 1 1 NM ((pewer)(left)(river-router))) 
(1 2 3) 
(symbol-call 3) ) 


The second method removes points that have ay of the specified 
attributes as part of their attributes. Compare the following example, in 
which any point with either “ left “or “ top “ attributes is removed, with the 


one just presented: 


13 As in find-attributes, the attributes can either be a list of atoms 
or a list of lists. 
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-> (let 
((test-item 
‘(0034 
(({ia) 2 3 NM ((exnternal)(top))) 
({(udd) 1 1 NM ((power)(left)(river))) 
({out) 3 3 NP ((external)(signal)(tap))) ) 
(1 2 3) 
(symbol-call 3) ) ) ) 
(unmark-attributes-list test-item ‘((left)(top))))<CR> 
;, Remove any points that have “left” or “top” as part of their 
; attributes. The river attribute refers to the river router.!4 
(003 4 nil (1 2 3)(sgmbol-call 3)) 


Once an item has been created, it may be desirable to give all its 
Points a common name. By doing this, point functions that use a name as an 
argument to search for points will find all points with the common name. 
-> (contain (layout-and 4 4 t) ‘and-1)<CR> 
;, Prepend the name “and-1" to every point’s name. 
(0 -43 25 0 
({{and-1 gnd) 18 -18 NM (power)) 
({and-1 udd) 3 -2 NM (power)) 
({and-1 gnd) 21 -41 NM (power)) 
({and-1 int) 14-43 NP (in)) 
({(and-1in2) 19-43 NP {(in)) 
({and-1 udd) 98-25 NM (power)) ) 


(14689 10) 
(symbol-call 10) ) 


Labels [points or marks] are useful as references to direct other 
functions. Notice how the next function, layeut-flags!*, gives each of its 
points a “ river © attribute. These labeled points can then be used by the 


river function to connect them to other items. 


14 See Section IV.B.2.d. 


'S This function is found in the MacPitts program flags.1. 
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The next results, shown in Figure 45, are a set of four NMOS 
master-slave storage elements with load, write and read control lines. The 
labels in Figure 4.5 have been shifted in the positive x direction for 
legibility. Here are the four flags: 


->(layout-fiags ‘(inl menie mini mae) 0 138)<CR> 

;; Qayout-flags (<flag-name>*) <power><flag-width>) 

;, Sflag-width> ::= 

3; 7> (flags-required-width (<flag-name>*)<power>)<CR> 

;, Instantiate four flags [storage elements]. 

(-25 -97 293 145 
((((flag-write ini)) ? -97 NP (river)) 
(((flag-read ini)) 21-97 NP (river)) 
({(flag-load ini)) 62 -97 NP (river)) 
(((flag-write menie)) 67 -97 NP (river)) 
(((flag-read menie)) 981 -97 NP (river)) 
(((flag-lead menie)) 122 -97 NP (river)) 
(((flag-write mini)) 127 -97 NP (river)) 
(((flag-read mini)) 141 -97 NP (river)) 
({(flag-load mini)) 182 -97 NP (river)) 
(((flag-write moe)) 187 -97 NP (river)) 
(((flag-read moe)) 201 -97 NP (river)) 
(((flag-load moe)) 242 -97 NP (river))) 
(1234567891011 12 13 1415 16 17) 
(symbel-call 17) ) 


In the item generated above, each point can be accessed by its 
name or by its attributes. In this case, all the points share a common river 
attribute, which indicates, that the riger routing function will operate on 
them. , 

Routing operations are among the operators that make effective 
use of paints. In the following section the aforementioned riwer function, 


which connects two coordinate lists, is presented. 
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Figure 4.5 (layout-flags ‘(ini menie mini moe) 0 138) 
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d. River Router 
LS has & simple, but useful river router with this syntax: 


(river <layer><widtho<stretch>(xy left>*)(xy right>*)) 
<Jayer> c= {NM |ND | NP | CM }'6 
{ <width> | <stretch> | <y left> | <y right> } := <number> 


The <stretch> is the amount-.of extra reach desired on the right 
side of the river. The lists of left and right y coordinates are the connection 
“points”. Both lists should contain the same quantity of numbers. The left 
coordinates are connected ta their respective right coordinate: that is, <y 
left>, ta <y right>,. The <width> is the desired width of the connecting runs. 


The results are easier to show than to explain, so here is an 
example and its plot (Figure 4.6]: 


-> (river 'NM 310 ‘(1 8 17 26 37) ‘(5 17 29 41 57))<CR> 
;; Connect <y left>, to <y right>s 
(0 0 43 58 nil nil 
((rect NM 0 0 27 2)(rect NM 27 0 30 6) 
(rect NM 2? 4 43 6) 
(rect NM 0 7 21 9 }(rect NM 21 7 24 18) 
(rect NM 21 16 43 18) 
(rect NM 0 16 15 18)(rect NM 15 16 18 390) 
(rect NM 15 28 43 30) 
(rect NM 0 25 9 27 )(rect NM 9 25 12 42) 
(rect NM 9 40 43 42) 
(rect NM 0 36 8 38)(rect NM 3 36 6 58) 
(rect NM 3 56 43 58))) 


Routing between the control unit and the data path section in 


MacPitts is done with river. In LBS, all the routing between the !I/0 pads 


'€ Other layers such as CMF or CMS can be easily added by placing thern 
into the second line of the river function in LS [where the spacing between 
different runs is determined]. For example: 

(assoc (layer '((NM 3)(ND 3)(NP 2)(CM 3)(CMF 3)(CMS 3)))) 
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river 'NM 3 10 ‘(1 8 17 26 37) ‘(5 17 29 41 57)) 


end the combinational logic unit also utilize riper. The router can be used 
by assigning an attribute such as (river) to an item's points. The points are 
obtained using this attribute and one of the functions discussed in Section 
IV.B.2.c.. The desired points y coordinates are then extracted and passed as 
lists to river. 

A brief look has been taken at LS's data structures and operators; 
however, they can become untenable if a large collection of items have to be 
handled one by one. LS resolves this problem by allowing abstraction of 
items into symbols. These symbols can in turn be used to form more complex 
items or symbols. At each level representational complexity is reduced, 


allowing LS's operators to operate efficiently. 


C. HIERARCHICAL REPRESENTATION 
The representation of knowledge or the structure of an organization in 4 
hierarchical fashion is commonplace (Mead, 1980, p. 292): 

We know that human organizations use hierarchical structure to 
extract the greatest possible benefit from the daily activities of tens of 
thousands of individuals. We know that complex systems can be 
constructed by subdividing them into less complex systems, which are 
again subdivided, as many times as necessary, until the resulting systems 
are simple enough to construct easily .... The organization of real estate 


on the silicon surface dictates a hierarchical communication system for 
any devices that must support global communication. 


Within this hierarchical] circuit structure, the Abstraction Principle, 
requires that items be created only once from scratch: recurring patterns 
should be factored out (MacLennan, 1983, p. 11) This is done in LS with the 
macro defsymbol. (Crouch, 1983, p. 16){Cf. Ayres, 1983, p.20) 
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|. Defsymbols 
In order to save memory and time, LS has 4&4 define symbol 


[defsymbol] macro which treats items in a fashion similar to a subroutine. 
The defsymbol macro has the following syntax: 


<defsymbol-name> ::= 
-> (defsymboal <defsymbol-name>({<arguments>)}<L5 form>)<CR> 


<LS form> ::= { <lincoln form> | <LISP form> | <L5 form> }* 

When an item that has been defined as a defsymboal is called witha 
set of arguments it is saved as a symbol on the L3-symboa!l-list. Then, if 
it is called again By another function with the same parameters, the L3- 
symbol-list is searched for the symbol representing the item. The 
position of the symbel in the L3-sygmboal-list is returned and placed in 
the called-symbel-names field of the item. 

lf the defsymbel has not been called with the given set of 
parameters, then a symbol corresponding to the defsymbai wil! be placed 
on the L3-symboi-list. 

There are other effects of using a defsymbal that depend on whether 
the L3-symboal-list's value is in-memory or on-disk. If it's set to in- 
memory then the item's tree is saved as part of the symbol that is 
placed on the LS-symbol-list. On the other hand, if it’s set to an-disk, 
then the item's tree is not Stored as part of the symbol: the tree is 
converted to CIF and output to the L3-symbol-file. These two 


possibilities and their effects are summarized in Figure 4.?: 
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--L3-symbal-storage 
/ \ 


in-memory on-disk 
f \ 
save item description in the save the item's description as 
symbol's tree CIF in the L5-symbol-file 


Figure 4.7 L5-symbol-storage 
It is useful at this point to create a function to set the values of 4 
few global variables. This is useful because during an interactive session 
the L5-sygmbel-list becomes very large; and, it also helps to be able to 
give global variables values the user typically uses. For example: 


-> (defun start () 
(setq --L5-symbol-list nil) 
(setq --L5-symbol-number nil) 
(setq --L5-symbol-storage ‘in~-memory) 
;; patom := put atom, outputs its arguments to the given port 
:- [it defaults to the screen]. 
(patom '| The L5-symbol-list/number are nil. |) 
;; terpri := terminate printing. 
(terpri) 
(patom ‘| The L5-symbol-storage is in-memory. |) 
(terpri) )<CR> 
;- Whatever values the user desires could be set, For example: 
-- (minimum-feature-size! 150) 
;; (technology! ‘cmos) 
start 


A comparison is now made of the two ways to store symbols. 
a. in-memory Storage 
Assuming that lincoln and LS have been loaded into LISP, the global 
variables can De reset as follows: 


-> (start)<CR> 

;; Reset the symbol-list/number/storage. 
The L5-symbol-list/number are nil. 
The L5-symbol-storage is in-memory. 
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The storage location has been set to in-memory. A look at how a 
defsymbol works is now taken: 


-> (defsymbal butting-contact () 
(merge 
(rect 'NM 0 -6 4 0) 
(rect 'ND 0-44 9) 
(rect 'NP 0 -6 4 -3) 
(rect 'NC 1-5 3-1) ) }<CR> 
;; & butting-contact is one of LS5’s defsymbols. 
butting-contact 


-> (butting-contact)<CR> 
;, Create a butting-contact item. Notice it calls <symbol>, in the 
;; LS-symbol-list [itself]. 

(0 -6 40 nil (1)(symbol-cali 1)) 


What happened to all the layout information in the butting- 


contact’ |t has been placed on the LS-symboi-list. 


-> (L5-symboal-list)<CR> 
;; The LS-symbol-list only contains a symbol for butting-contact. 
;; symbol-!D := (butting-contact 4) 
3; symbol-nest-level := | 
;; symbol-tree := ((rect NM 0 -6 40)..{rect NC 1-5 3 -1)) 
(((butting-cantact 4) 0 -6 40 nil nil 1 
((rect NM0O-6 4 QO) 
(rect NB 0-4-4 90) 
(rect NP 0-6 4-3) 
(rect NC 1-5 3 -1))})) 


A defsymbol can be retrieved as a function from the L3- 
symboali-list using the LS-item-to-program function using this syntax: 


(def <function-name> (lambda nil <L5 form>*)) ::= 
-> (L5-item-to-program <item form><function-name>)<CR> 


<item form» «:= { <item> | <defsymbol-name> } 


127 


A few caveats about the use of L3-item-to-program are in 


order here: 


e Avoid making the <function-name> := <defsymbol-name>. The function 
that’s generated replaces any existing function with the same name, 
specifically: an item created with 4 defsymbol definition would be 
replaced with 4 zero argument function with the offending name. 
Consequently, when the unsuspecting user attempts to use the defsymbol 
with arguments, the system will return errors. 


e Don't use on-disk storage. |f a defsymbol is to be converted in this 
fashion, then the storage location must be in-memory. 


These ideas are best illustrated with an example of an item that 
has previouly been looked at, a (layout-inverter 4 t): 


-> (LS-item-to-program 
(layout-inverter 4 t) ‘invert)<CR> 
;; Make the item (layout-inverter 4 t) into a function. 
(def invert 
(lambda ail 

(merge 

(move (diff-cut) 16 -16) 

(rect ‘ND 7-18 16 -16) 

(rect ‘NP13 -20 15 -14) 

(layout-pullup) 

(mark '‘gnd 18 -18 'NM ‘(power)) 

(mark ‘inl 14-20 'NP ‘(in)) 

(mark ‘udd 8 2 ‘NM '(power))}}) 


This function is a specific instantiation of the original 


defsymbol. Notice that the defsymbol has arquments:!? 


'? The reader can take a look at a defsymbol's definition using the 
pretty print function. The output is a function that calls up two subsidiary 
functions, desymboll and defsymbol2. These functions check to see if 
an item is already on the LS-symbol-list and if not, they add 4 new 
symbol to it. For example, try: -> (pp butting-contact) 
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-> (defsymbol layeut-inverter (ratio! mark?) 
(let 
((diffusion 
(merge 
(mauve (diff-cut) 16 -16) 
(mark ‘gnd 18 -18 ‘NM ‘(power)) 
(cond 
((= ratio! 4)(rect 'ND 7 -18 16 -16)) 
(t (rect ‘ND 7? -20 16 =16))))) 
(gate (rect ‘NP 13 -20 15 -14)) 
(mark 
(cond 
(mark? (mark ‘int 14 -20 'NP ‘(in))) 
(t (null-item))))) 
(merge diffusion gate mark (layout-pullup)}))<CR> 
;; The desymbol macro returns a name. 
layout-inverter 


If many large items are placed on the LS-symbol-list and a)! 
their trees are also placed there, the list quickly becomes unwieldy. An 
alternative is to Keep al] the other information in the L3-symbel-list, 
convert the item's tree to CIF and place the CIF in the L3-symbol-file. 

b. on-disk Storage 

This storage mode reduces the L3-symboal-lists size by changing 
the item's tree to CIF. It is useful when items don't need to be retrieved 
from the LS-symbol-list with their trees [for example, the LS-item-to- 
program function will only create 4 program out of a symbol if its tree is 
on the LS-symbol-list; similary, the Caesar conversion routines {Section 
[¥.C.3} also require in-memory storage]. 

An example can be examined after resetting all the global 
variables using the start function. First the L5-symbol-storage is set 


to on-disk and the effect compared with the results of Section IV.C.1.a. 
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-> (start}<CR> 
The L5-symbol-list/number are nil. 
The L5-symbol-storage is ia-memory 


-> (L5-symbol-storage! ‘an-disk)<CR> 
;; Set the symbol storage location to on-disk 
on-disk 


-> (butting-contact}<CR> 
;; The butting contact item looks the same as before. 
(0 -6 40 nil (1)(symbol-call 1)) 


-> (L5-symbol-list)<CR> 
;; Although the butting-contact item is the same the <symbol> no 
;; longer has a tree in it. Compare to the L5-symbol-list in the 
-- previous section. 
(((butting-contact 4) 0 -6 40 nil nil 1)) 


In this case the LS-symbol-list contains only one symbol. If there 
are several symbols in it, then they can be individually retrieved in item 
form as follows: 


<item> := -> (create-called-symbal-item <position>}<CR> 
<position> ::= <integer> 


/ Therefore, continuing with the above example: 


-> (create-called-symbal-item 1)<CR> 
;; The item that is returned has 6 symbol-call tree. This means 
-- that the item has been output as CIF!8 and is referred to as CIF 
;; symbol |. 
(0 -6 40 nil (1) (symbol-call 1)) 


This is exactly the result that evaluating (butting-contact) 
gave. The price gained in speed and storage is the less descriptive format. 


However, the item has been converted to CIF. 


18 See Footnote 8 of this chapter. Section IV.C.2 covers this in more 
detail. 
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2a GlE 
When the on-disk storage mode is used, an item's tree is sent to the 
L5-symbol-file as CIF. 4 brief look is now taken at the CIF result from 
the previous example: 


-> (L5-symbol-file)<CR> 
/tmp/L5sym20374 


-> (exec cat /tmp/L5sym20374)<CR> 
-- axec allows UNIX® functions to be performed from LISP. In this 
;, case the contents of the L5-symbol-file are concatenated to 
;, the terminal. The following is CIF output. CIF uses “(" and") ” 
:: for comments. 

DS {; 

(define <CIF symbol> named 1); 

(name: butting-contact); 

(CIF comments are not printed out); 

LNM; BL 1000 B® 1506 C 500, - 7590; 

(since this was output with 250 centimicrons = lambda): 

(all the units must be divided by this amount); 

(CIF defines its rectangles like LS does its boxes:); 

( <layer><length><width><x enter? <Ucenter>?; 

( (box ‘NM 4 6 2 -3) ): 

LND; BL 1008 BW 1008 C 500, -500; 

( (box ‘ND 4 4 2 -2) ). 

L NP; BL1000 BW 750 C 500, -1125; 

( (box 'NM 43 2 -3) ); 

LNC; BL 3500 BW 1000 C 500, -750; 

( (box 'NM 2 42 -3)): 

OF; 

(end <CIF symbol>,‘s definition); 


The function that LS uses to create CIF has the following format: 


<file>.cif := -> (cifout {[‘kitem>}['l<file>}{*<titles "}}<CR> 
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A few comments on using this function are: 


® The number of centi-u/A should be set using minimum-feature- 
size! before outputting CIF. If an item was created with on-disk storage, 
then the CIF has already been made at whatever minimum-feature- 
size the system is currently using. Therefore, functions such as cifplot 
must be given the scale to use if it is not 2.0 centi-—/A; otherwise, 
plotting errors will occur. 


e The title appears as a CIF comment. For example, if the title is: 
“butting-contact’, 

then the CIF comment line is: 

(Title : butting-contact); 


® If points or marks are to appear as CIF they should have the external 
attribute. The conventional ~ 94 ~ CIF user extension for labels has been 
added as a default option to the function cifaut-external-name in (5.! 
to enable the standard cifplot program to plot marks and points. (Carlson, 
1984, p.78) 


Although LS items can be transformed into CIF, the inverse function is 
not directly implemented in LS. In order to accomplish this, Caesar format 
is used. 

5. Caesar 
L5 is used to design circuits in a procedurally oriented approach. 
Another, and perhaps the most widely used VLSi design methodology, is 
graphical. LS provides access to the interactive graphical editor Caesar. At 
the present time, the Caesar editor can be invoked from the LS environment. 
Conversely, Caesar files can be changed to LS format. Figure 4.8 shows the 


different ways to get from one format to the other: 


Po 


frocaesar—\ 


.ca L5 
\geecasavenqe/ 
cif2cal? cifout 


\e~ CIF 


Figure 4.8 Caesar, LS and CIF Conversions 


There are several functions associated with the Caesar editor. Table 


4.8 gives a synopsis (Crouch, 1983, pp. 17-18): 


Function 


caesar 


caout 


cain 


casave 


Arguments29 
<item><file> 


<jtem> 
<item><file> 
<file> 


<caesar file> 
<L5 file> 


TABLE 4.8 


CAESAR FUNCTIONS 


Description 


Converts an <item> into Caesar format, the 
Caesar editor is invoked and the results of 
the session are saved in the <file> as items. 


Displays the <item> in Caesar without 
generating any LS code afterwards. 


Qutputs the <item> in Caesar format to 
<file>.ca 


Reads in a Caesar formatted file and 
converts it to L5 code. 


Converts a <caesar file> into LS code and 
saves the result in <L5 file>. Each Caesar 
symbol is made into an LS defsymbel. 


'9 This is a Berkeley CAD conversion program from CIF to Caesar format. 
A minor problem with this present scheme is that Caesar evolved into the 
more versatile Magic system. The routines need to be modified to use Magic 
format instead of Caesar format. 


20 All of these functions are fexprs, therefore, none of the arguments are 


quoted. 
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TABLE 4.8 
CAESAR FUNCTIONS (CONTINUED) 


Function Arguments Description 





cadef <caesar file> Places each Caesar symbol on the 
L5-symbol-list. 


4. summary 
. This chapter has covered the significant features of LS. Its 
hierarchical style is well suited for writing procedures which manipulate 
lower level primitives. These basic building blocks can be designed on a 
graphical Jayout editor and then converted into LS programs. 
At the present time LS uses the Caesar editor. In the future a routine 


should be implemented to use the more versatile Magic editor. 


134 


V. TOP.L AND PREPASS.L: THE TOP-LEV 


The reader has seen how a group of LISP object files can be loaded 
together to create a LISP environment!. This chapter shows how a top-level 
function is used to make an environment accessible with parameters. In 
other words, the environment will be invoked just like other UNIX® 
commends. Two programs that contain top-level functions are top.! [LBS] and 
prepass.] [MacPitts]. In addition, these programs contain the “compilers” for 
LBS and MacPitts. A look at these top-level programs brings to light major 


differences and similarities between LBS and MacPitts. 


Seeime TOP-LEVEL 
1. Eranz Lisp's Default Top-Level 

A top-level function creates the prompt-read-eval-print loop. The 
user can call the top-level function and can create a prompt-read-eval-print 
loop with different characteristics. To do this, the user defines a4 new top- 
level function and types (reset) to run it. (Foderado, 1983, p.13- 
l)(Wilensky, 1984, p.138) 

When the imperative command lisp is given to UNIX®, the interpreter 
is brought into action with its default top-level: franz-top-level2. This 


occurs because the variable top-lewel is bound to franz-top-level. 


1 See the discussion in Chapter II Section B.2.b. 


2 Defined in /usr/lib/lisp/toplevel.1 


os 


Sore af the actions taken by this default top-level are (Foderado, 
1983, Appendix C.2)(Wilensky, 1984, p. 348): 
e Print out: Franz Lisp Opus 38.69 


® Load lJispre from the user's HOME directory. 


e Enter a prompt-read-eval-print loop. Each time through, before the 
prampt is printed, the value of user-top-level is checked. If it has been 
bound, then its value will be funcallled. This allows the user to enter a 
different top-level for the interpreter. Handle errors, interrupts, etc.. 


2. Example Top-level 
At this point, it's useful to use a simple makefile and top-level file 
to examine the ideas involved in more detail. Tne makefile is as follows: 


chip: L5.o defstructs.o top.o creator.o 

(echo °\ 

(eval-when (eval)\ 
(sstatus translink on)?\ 
(fasi ‘lincoin)\ 
(fas ‘L5)\ 
(fasi ‘defstructs)\ 
(fasi ‘top)\ 
(fasi ‘creator)\ 
(setg user-top-level ‘chip-top-level)\ 
(signal 2 ‘chip-interrupt-handler)\ 
(setq option-list ‘(stat obj cif})\ 
(minimum-feature-size! 150)\ 
(dumplisp chip)\ 
(exit))* | lisp 


~“ Makes LISP transfer of control to compiled functions fast (wilensky, 
1964, p. 264). This rnay be a disadvantage if debugging arid tracing is to be 
done within this dumplisp environment, since the trace and debug 
functions will not work. If the primary intent is to debug code then use: 
(sstatus translink nil) 


The top-level file, top.l, is composed of several LISP functions. The 
first, chip-top-level, performs a check of the arguments used when 
invoking “chip”. If there are no arguments then the ‘chip" dumplisp 
environment is called up. If there are arguments, then these are passed on to 
the chip-compiler function. The user should note that chip-top-level 
was set to be the top-level function in the example’s makefile above. 

In other words, the “chip” dumplisp environment has a function, chip- 
top-level, which handles the arguments placed in the command line when 
“chip” is invoked. Notice that if no arguments are given, then a message is 
printed out and the user is placed into the “ chip “ dumplisp environment. 
This feature can be used for debugging purposes [See Footnote 3 of this 
chapter). A look at this function follows: 


(defun chip-top-level () 
3; If “chip” is invoked without any arguments: 

(cond ((=1 (argy)) 

;; (argv) gives the number of elements on the command 

;; line that invoked this LISP. So, if the user types: 

: & chip <argument, ><argument,><argumentz> 

;; then (argy) := 4 
(patom 

"usage: chip <filename> [<options>]") 

-- (patom <expression>[<port: default to screen>)) 
;; print out the expression: 
;; usage: chip <filename> [<options>] 
;; The "[“ and” ]” indicate an optional argument. 
(terpr) 
;, (terpr) or (terpri) terminates printing. 
{(setq user-top-level ()) 
;; The variable user-top-level is set to nil, but 
;; notice that in the makefile it was set to chip 
;; top-level. Therefore, if chip is called up 
;; without arguments, then chip-top-level calls 
- up the “ chip “ dumplisp environment 


oe 


;, and gives contro] to franz-top-level, e.g: 
5; & Chip 
;; usage: chip <filename>{<options>] 
-- {Return to top level] 
(signal 2 (function sys:int-serv)) 
-; (signal <number><function>) 
;; The number 2 represents an interrupt signal 
;, and sys:int-serv is the LISP default function 
;, that handles interrupts (See !.B.1.c]. (wilensky, 
:- 1984, pp. 269 & 355)(Foderado, 1983, p. 6-7) 
(reset) 
3, If “chip” is invoked with arguments: 
(t 
(chip-compiler 
:- (chip-compiler <file-name> [<options>]) 
(mapcar 
;; The mapping function mapcar retrieves the 
;; arguments typed in the command line, e.g.: 
iy & chip multiplier cif obj 
;- then, 
»; (mapcar (lambda (x)(argy x))(1 2 3)) 
3; returns: 
;; (multiplier cif obj) 
(lambda (index)(argu index)) 
;; (argy <index-number>) 
;; returns the indexed argument on the 
;; command line, e.g. If, 
o % chip adder cif 
;; then, 
;; (argy 1) := adder and (argy 2) := cif 
se -> (argv 0} 
‘i chip 
;; and (argy) gives the total number of 
;; arguments on the command line: 3 
(count (1- (argu))) )))) 
;; (count <integer>) 
;, make a list of integers up to the given 
one. 
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pp -> (count 5) 
- ({ 2345) 
(exit) ) 


The next function is set up in the makefile to handle interrupts. When 
an iterrupt is received it prints out "chip-interrupt:", the Signal number 


and then exits the “chip” dumplisp environment. Here is the code: 


(defun chip-interrupt-handler (signal-number) 
: This is used in the makefile as the function that 
;; handles interrupts (2), floating exceptions (8), 
;; alarms (14) and hang-ups (1). (Wilensky, 1984, p. 270) 
(patom ° chip-interrupt: ") 
(patom signal-number) 
(terpr) 
(enit)) ) 


The previous functions allowed the user to invoke the “chip” dumplisp 
environment as a UNIX® command. The following function is used within the 
‘chip’ dumplisp environment to pass arguments to the chip-compiler 


function: 


(def chip 
;; The nlambda function format takes many arguments, 
;; they are unevaluated and bound as a list to the 
;; function's single parameter. For example: 
5; 7> (chip adder cif obj). 
;, then args := (chip adder cif obj) 
(nlambda (args) 
:- (chip <filename> [<option>*]) 
3; <option> ::= {nostat | noobj | nocif | mag} 
;; <default option» ::= stat obj cif 
(chip-compiler args) ) ) 


The next function coordinates other programs in order to produce the 
different types of output. It first uses the process-option function to set 


the global variable, option-list, to the options that have been input. Then 
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it calls on other programs to process the options and place the outputs in 
appropriately labeled files. 


(defun chip-compiler (args) 
-- (chip-compiler ‘(<filename>[<option>*])) 
(cond : 

({not (null args)) 
;, If there are arguments then find the options using 
; the process-option function. This will place all 
;, requested options along with other defaults which 
>; were not inhibited on the option-list. 

(mapcar ‘process-option (cdr args)) 

(prog (in-file stat-file mag-file obj-file 
out-file inport statport magport 
objpert netlist output) 

;; After declaring all the prog’s local variables, 
;; set the filenames [e.g., <filename>.chip, 
-- <filename>.stat, etc..].- 
(setq in-file (concat (car args) ‘.chip) 
(setq stat-file (concat (car args) '.stat) 
(setq mag-file (concat (car args) '.mag) 
(setq obj-file (concat (car args) '.obj) 
(cond 
;; \f the in-file exists, then take the following 
- actions. 
((probef in-file) 
(setq inport (infile in-file)) 
(setq statport (fileapen stat-file ‘w)) 
(setg netlist 
(converter (read inport) stat-port)) 
(cond 
- 3) If “obj” is in the option list, then... 
({member ‘obj option-iist) 
{ ® other function calls to other 
subprograms as required to make 
the chip} ] ) 


The option-list has certain default values set in the makefile. The 


user can inhibit them by placing “no” in front of them [e.g. mastat]. On the 
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other hand, there may be other options, besides the default values, which 
the user can input. The following function examines the options the user has 


input and updates the option-list as required: 


(defun process-option (option) 
(cond 
((not (atom? aptien)) 
(warning "Option not atom*)) 
-- Gptions must be atoms. 
({and (> (length (explode optian)) 2) 
(equal ‘n (car (explode optian))) 
(equal ‘o (cadr (explode option))) ) 
;; Is the option more than two letters long and its 
- first two letters an “n" and “o” [the option is of the 
:- form: noxXxx]? Explode separates an atom into the 
-- characters that compose it (implode is its dual). 
(cond 
;; ls the rest of the option [i.e. excluding the “no 
;; in the option list? 
({member? 
(implode (cddr (explode optian))) 
option-list ) 
-- Drop the option from the option-list. 
(setq option-list 
-- Remove the indexed element from the 
- option-list. 
(nthdrop 
:- Find the index of the option without the 
"no" in the option-list. 
(iota 
(implode (cddr (explode option))) 
optian-list } 
option-list }) } )) 
;; Otherwise, if the option is not of the form noxxx, 
-- then add it to the option list. 
(t (cond ({not (member? option optian-list)) 
(setq 
- optian-fist 
(cons option option-list) } })))) 
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Both LBS and MacPitts have top-level functions similar to these. The 
major difference between the two programs is that LBS generates 
combinational logic circuits, whereas MacPitts has a control and data-path 


paradigm. A look at their compilers illustrates their differences. 


B. 8S €Ohrikon 
LBS accepts a file with LISP boolean forms as its input. These boolean 
forms have the following syntax: 
TABLES 
LBS SYNTAX 
Category Syntax 


<LBS program> ::= (xbform>*) 


<bform> ::= { (name <name>) | (setq <name><bfarm>) | 
(out <name><bform>) | (nor <bform>*) | 
(or <bform>*) | (and <bform>*} | 
(not <bform>*) | (ror <bform>*) }4 


So for example, an LBS program might consist of the following lines: 


({setq load (nor (and (not int) in2 clock!) in3) 
(out out! (xor (nand in! clock2) in4 foad)) ) 


If € <name> is used as the first argument of a setq or an out it can be 
used in other <bform>s. Otherwise, the other <name>s are assumed to be 
inputs. The input file is parsed and converted into an intermediate ‘obj’ 
format by bool-to-straps [located in extract.1]. This is a connectivity list 


that is used to generate the Weinberger array implementation of the boolean 
4 Of course, bform is implemented as a defstruct. 
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expressions. This “obj” format is then used by layout-cmos-wein [called 
by lagout-chip) or layout-inside [used in the Caesar section] to create 
the array. These ideas can be seen in the implementation of LBS's compiler. 
The ibs-compiler function assumes that an. Ibs-top-level, Ibs- 
interrupt-handler and Ibs function are available [See Section YA]. LBS's 
compiler has the following format: 


(defun Ibs-compiler (args) 
(cond 
;, If the arguments aren't empty, then process them. 
((not (null args)) 
(mapcar ‘process-option (cdr args) ) 
(prog 
-- Define local variables. 
(in-file stat-file caes-file obj-file out-file 
inport statport caesport objport bs chip ) 
(setq in-file (concat (car args) ‘.Ibs)) 
(setq stat-file (concat (car args) '.stat)) 
(setq caes-file (concat (car args) '.ca)) 
(setq obj-file (concat (car args) ‘.obj)) 
(setq out-file (car args)) 
;; Check that the input file is not empty and then pro- 
:; proceed to process the input file. 
(cond 
;; Probe the input file to see if it has anything in it. 
;; If it's not empty then turn it into the in port. 
((probef in-file) 
(setq inport (infile in-file)) 
(setq statport (fileapen stat-file ‘w)) 
-- The boolean input format is converted to a 
;; format showing connectivity and logical 
:; relationships. 
(setq 
bs | 
(bool-to-straps (read inport) statport) ) 
;; Check the options and produce the ones desired. 
(cond } 
;, Produce the intermediate “obj” format. 
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((member ‘obj option-list) 
(setq objport (fileopen obj-file ‘w)) 
(pp-form bs objport) 
(terpr objpart) 
(clase ob jpart) 
(message-number-7?) ) 
:; Produce Caesar format output. 
((member ‘hca option-list) 
(message-number-5) 
(setq caesport (fileopen caes-file ‘w)) 
;; Create the Weinberger array. 
(setq 
chip 
(laygout-inside 
bs 
(car args) 
caesport) ) 
:- Create CIF format output. 
(cond 
({(null chip)(message-number-4)) 
(t (cifout chip out-file out-file) 
(message-number-6) ) ) ) 
:; Create CIF format output. 
((member ‘cif option-iist) 
(message-number-1) 
;; Build @ Weinberger array then route it to the 
-- 1/0 pads. 
(setq chip (layout-chip bs)) 
(cond 
({null chip)(message-number-4)) 
(t (cifout chip out-file out-file) 
(message-number-2) ) )) ) 
;; Make a simulation file. 
(cond 
((member ‘sim option-list) 
(sim bs out-file)))) 
(t (message-number-3 in-file)) ) 
(return) )))) 
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LBS has a simple architecture based on implementing combinational logic 


circuits in CMOS. MacPitts is a larger program with many more possibilities. 


C. MACPITTSS COMPILER 

The increase in complexity from LBS to MacPitts can easily De seen in the 
syntax used by the latter program. 4 glance through MacPitt's BNF shows 
that it incorporates concepts such 4s: function, macro, port In-bit data], 
signal [t or f data], register [datapath storage], flag [signal storage], 
organelle [functional unit], test [e.g., = or =O], etc.. MacPitts, unlike LBS, 
requires that 1/0 pads be specifically declared [that’s why <pin-number>s 
are used to specify their location]. Again it should be noted that most of 
these ideas are implemented as defstructs®© Skim through the BNF to gain 


a feeling for MacPitts’ syntax: 


TABLE 5.2 
MACPITTS SYNTAX 
Category Syntax 
<MacPitts (program <program-name><word-size> 
program> ::= {<eval> | <def> | <always> | <process>}*) 
<eval> n= (eval {compile | simulate | both} <L!SP form>) 
<def> ::= (def <pin-number> 


{ power | ground | phia | phib | phic}} 


<def> :: 


(def <register-rame> register) 


‘ Only a brief description is given here of MacPitts. The reader should 
consult Southard (RVLI-3], 1983, pp. 1-33 and Siskind, 1961, pp. 1-18. 


6 This will be covered in more detail in Chapter VI. 
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Category 


<def> :: 


<def> := 
<def> ::= 


<def> ::= 


<def> ::= 
<def> ::= 


<def> ::= 


<def> ::= 


<def> ::= 


<def> :: 


<pin-number> ::= 


<result?> :: 


<always> :: 


<process> :: 


<Stack-depth> ::= 


<jabel> ::= 


TABLE 5.2 (CONTINUED) 
MACPITTS SYNTAX 
ayntax 


(def <port-name> port {input | output | 
tristate | i/o} (<pin-number>*)) 


(def <port-name> port internal) | 
(def <flag-name> flag) 


(def <signal-name> signal {input | 
output | tri-state | i/o} <pin-number>) 


(def <signal-name> signal internal) 
(def <constant-name> constant <form>) 


(def <organelle-name> organelle 
<*control-lines><*parameters><*test-lines> 
<result?><GEN form><SIM form>) 


(def <function-name> function 
<organelle-name> ({integer | boolean}*) 
(<control-line>*)(xparameter>*+)<INT form>*) 


(def <test-name> test <organelle-name> 
({integer | boolean}*)(<control-line>*) 
(<parameter>t)}<test-line><INT form>) 


(def <macro-name> macro {single | list} 
<LISP form>*) 


<integem 
{yes | no} 
(always <form>*) 


(process <process-name> 
<stack-depth>{<label> | <form>}*) | <macro> 


<integer 


<symbol> 
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Cotegory 


<form> ‘= 


<mMaCra> = 


<organelle> ::= 


<function> ::= 


eS i> a= 


<condition> = 


TABLE 5.2 (CONTINUED) 
MACPITTS SYNTAX 


2untex 


<integer> | “<character>" | <constant-name> | 
<register-name> | <port-name> | 
(go <form>) | 
(call <form>) | 
(return) | 
(par <form>*) | 
(if <form><form><form>) | 
(cond {(<condition><form>*}}*) | 
(setq <register-name><form>) | 
(setq <port-name><form>) | 
(setq <signal-name><condition>) | 
(<function-name><formula>*) | 
<macro> 


(macro <macro-name>{single | list} 
<LISP form>*) 


(organelle <organelle-name> 
<*control-lines><*parameters><*test-lines> 
<result?><GEN form><SIM form>) 


(function <function-name> <organelle-name> 
({integer | boolean}*) 
(<control-line>*)}(<parameter>t)<INT form>*) 


(test <test-name><organelle-name> 
({integer | boolean}*)(<control-line>*) 
(<parameter>*)}<test-line><INT form>) 


t | (| <signal-name> | (and <condition>t) | 
(or <condition>*) | (nat <condition>) | 
(nor <condition>+) | (mand <condition>*) | 
(sor <condition>*) | (equ <condition>*) | 
(bit <bit*>{<integer>|<integer form>}) | 
(setq <signal-name><condition>) | 
(<test-name><form>*) | 
<macro> 
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TABLE 5.2 (CONTINUED) 
MACPITTS SYNTAX 
Category Suntax 
(72 ene = <symbal> 
The increased syntactical complexity is handled by functions in prepass.! 
that parse through the input forms. They can be divided into three major 
categories: functions that fetch something, those that manipulate data, and 
those that expand forms. They are used in conjunction with other programs 
in MacPitts and the defstruct macro to generate an intermediate “obj” 
description’. This “obj” code can then be implemented in a controller and 
data path structure. The functions have the following syntax and in general 


their names are an indication of what they do: 


TABLE 5.3 
PREPASS.L FUNCTION SYNTAX 
Function syntax 
get-<x> 
<X> Is { source | library | object | program-name | 


program-tail | word-length | definitions | 
sources | sources-from-form-list | 
sources-from-form | destinations | 
destinations-from-component-list | 
destinations-from-form-list | 
destinations-from-form | 
labeils-from-component-iist | 
labels-from-form-list } 


? This format is more complex than LBS’s “obj” code. MacPitts “obj” 
format can be broken up into five sections: definitions, flags, data-path, 
control and pins. LBS only has a control section. 
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Ap Ees.2 
PREPASS.L FUNCTION SYNTAX 


Function Syntax 

process-<\y> 

> = { <2> | definitions | definition | contrai-line | 
parameter | test-line } 

Zp = <22>-definition 

{22> t= { power | ground | phia | phib | phic | 


register | flag | signal | port | macro | constant | 
organelle | function | test } 


eupand-<V¥> 
<¥¥> crs { process | macro | form-list | form | 
component-list | component } 


A quick look is now taken at MacPitts’ compiler. It works in a fashion 
similar to the LBS compiler. First, the input forms are converted to “obj” 
format, and then this object code is transformed into the requested options. 
Here is the compiler function: 


(defun macpitts-compiler (operands) 
(prog (file-name file object obj item) 
;; plime gives run and garbage collection times. 
(setq initial-ptime (ptime)) 
;; The number of garbage collections that occurred. 
(setq initial-qccount $qccount$) 
;; If the operands are null or atoms then return to the 
; franz-lisp top level. 
(cond ((or (not (list? operands)) 
(null operands) 
(not (atom? (car operands)))) 
(patom “usage: (macpitts <filename> 
[<options>])*) 
(terpr) 
(return ()))) 
(setq file-name (car operands)) 
;; Set the option-list to the requested and uninhibited 
;; default settings. 
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(mapcar ‘process-option (cdr operands)) 
(statistic (concat “for project ° file-name)) 
(statistic (concat “options: ° 
(slash 
(explode option-list) 


(function concat) ) ) ) 
;; Set the process parameters to Su or 4u. Note that 
-; MacPitts’ makefile defaults to 250 centi-w/a. 
(cond 
({(member? ‘Su option-list) 
(minimum-feature-size! 250))) 
(cond 
({(member? ‘4u option-list) 
(minimum-feature-size! 200))) 
-- Ig interpreter output one of the options? 
(cond 
({(member? ‘int optian-list) 
(cond 
({(null (catch (interpret file-name) note)) 
(return ()))))) 
;, ls CIF or object format desired? 
(cond 
({or (member? ‘obj optian-iist) 
(member? ‘cif optiaon-list) ) 
(setq object (get-object file-name)) ) 
(t (return t)) ) 
;; If nothing is generated up to now, exit. 
(cond ((null object) (return ()))) 
-- Output data-path statistics. 
(statistic (concat "“Data-path has ° 
(length 
(object-data-path object) ) 
* Units*)) 
;; Is object code desired? 
(cond 
((member? ‘obj optiaon-list) 
(herald “Outputing .obj file") 
;, Object code is made up of defs, flags, data-path, 
-- control and pins. 


1350 


(setq obj 
(make-ob ject 
(purge-library 
(abject-definitions object) ) 
(ob ject-flags object) 
(ob ject-data-path object) 
(ob ject-control object) 
(object-pins object) ) ) 
(setq file 
(outfile (concat file-name “.obj")) ) 
(pp-form obj file) 
(close file) ) ) 
>; Was CIF desired? 
(cond 
((member? ‘cif option-list) 
(setq item 
(catch (lagout-object object) note) ) 
(cond ((null item)(return ())) ) 
(herald "“Outputing .cif file") 
(cifout item file-name file-name) ) ) 
(statistic (concat "Memory used - * 
(/ (memory) 1024) "K*)) 
(statistic (concat 
“Compilation took “ 
(quotient 
(- (car (ptime))(car initial-ptime)) 
3609.0 ) " CPU minutes” ) ) 
(statistic (concat 
“Garbage collection took “ 
(quotient 
(- (cadr (ptime))(cadr initial-ptime)) 
3600.0 ) ° CPU minutes” ) ) 
(statistic (concat 
“For a total of * 
(- $gccount$ initial-gccount) 
" garbage collections") ) 
(return t) ) ) 


In summary, a bird's eye view of LBS’s and MacPitts’ compilers shows the 


relative differences between the two programs. MacPitts has a more 


eS) 


extensive syntax which requires more parsing of input code. Though they 
differ in complexity, these programs share many common features. They 
both use a top-level function with an interrupt handler and option process to 
access a dumped lisp environment created with a-makefile. After parsing 
through their input forms, they generate an intermediate object format. And 
finally, both use LS; and, all their data types are handied by the defstruct 


facility (including many of their inputs). 
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V1. ORGANELLES 


Chapter ¥ contains MacPitts’ syntax and its top-level function. MacPitts’ 
BNF allows the user to define functions, macros, tests and organelles and 
use them when writing a MacPitts program. Alternatively, the user can 
modify the organelles. and library programs and remake MacPitts. In this 


fashion the new operators become part of MacPitts’ syntax. 


A. OVERVIEW 

Before showing an example of the changes that are made in MacPitts to 
change its syntax, the relationships among some of its programs and 
functions need to be pointed out. When the user inputs a <MacPitts program>, 
the compiler [located in prepass.!] parses through the <MacPitts form>s. The 
program uses its get-<x>, process-<y> and expand-<yy>' functions to 
process <definition>s; evaluate <eval>s;: expand <macro>s; and, obtain 
<source>s, <destination>s and <label>s. This is done by using list selectors 
to disassemble the <MacPitts program> while checking the syntactic labels 
that were used. For example, the words def, ground, process, macro, 
function, etc., all trigger the use of the process-definition function. 
The eval and process labels are treated separately. The functions used 
during the parsing process to obtain <definition>s from the input are shown 


below: 


' Refer to Section V.C. 


fas 






> 


- ln 
Fa <eval>  <process> 


process-definitions make-eval-definition make-process-definition 






tits ica tion 


make-<ZZ>-definition 
Figure 6.1 Prepass Function Flow 

Once the definitions have been obtained and processed, the <flag>s, <data 
path>, <control>, <pin>s and <sequencer>s are extracted [functions located 
in extract.]] from them . The <control>, <flag> and <data path> elements are 
framed [layout functions in frame.l] together from the results of the 
data-path, controller, and flags generators. A separate portion of 
MacPitts [general.1] contains general query and lookup functions used by 
the extractor and data-path generator. 

The physical layout descriptions, organelles, are in two sections: a 
compiled portion and a non-compiled program called a library. The data- 
path creator uses the compiled organelles and the extractor uses the library. 

The overall program hierarchy is sketched below: 


prepass.| 


frame.) general.l---extract.| 
/ | \ | | 
flags.) control.) data-path.) library 


| 
organelles.) 


Figure 6.2 MacPitts Program Hierarchy 
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Prepass.] is coordinates the conversion of the <MacPitts program> to a 
layout with its get-object function. This operator uses subsidiary 
programs [primarily extract.1] to produce an intermediate result, an” obj * 
file, which can then instantiated into the silicon mask level by layout 
functions [in flags.J, control.) and data-path.1). This object file is a 
defstruct with the following definition: 


(defstruct object 
(definitions flags data-path control pins)) 


A quick look is now taken at the names of the major functional 
categories in prepass.| and its helper programs. Skimming through the 
function names provides a “ feeling “ for MacPitts. The most common 
operators are summarized by program in Table 6.1. 

TABLE 6.1 
MACPITTS PROGRAM FUNCTION SUMMARY 
Program Function Name Format 
prepass.| get-<x>, process-<y>, expand-<zz> 


extract.] extract-<A> 
<A> := { compoanent-list | process | form | atom | 
list | string | fixnum | register | flag | port | 
Signal | fabel | go | call | return | etc. } 


frame. layout-<5> 
<B> := { object | skeleton | wing | net | pins | 
power-ring} 


control.1 layout-<C> 
<C> := { control | driver | mpx | register | 
weinberger-<D> | etc. } 
<D> := { gates | nor | nor-inport | nor-gnd-line | 
etc. } 


data-path. fayout-<E> 
<E> := { data-path | buses | unit | organelle | etc. } 


Ss. 


TABLE 6.1 (CONTINUED) 
MACPITTS PROGRAM FUNCTION SUMMARY 


Program Function Name Format 


flags.1 layout-<F> 
<F> := { flags | flags-{ aaeaer | clack} | etc. } 


general. is-<G>? 
<G> := { register | flag | port | signal | macro | func- 
tion | test | label | etc. } 
lookup-<H> 
<H> ::= { macro | constant | signal | port | word- 
length | sequencer | label | function | test | 
organelle | power-pin# | etc.} 


library <definition> := {<macro> | <function> | <test> | <organelle>} 


organelles.| layout-<H>-organelle- 
<H> := { inverter | nand | and | nor | xor | 1+/ etc} 


The names, to a large degree, convey their function's purpose. For 
example, layout-data-path creates the LS code for this portion of the 
chip. The library has many instantiations of the definition’ defstruct. 
Examining this long structure generator [Figure 6.3] reveals that much of 
MacPitts syntax is data: 

In particular, note that an <organelle>, <macro>, <function> or <test> are 


all definition cases. The library is a big list with parameters for specific 


2 fayout-<H>-organelile is the L5 item that will be implemented in the 
circuit, whereas, layout-<X> is a function that lays out or creates items. 


5 Located in the MacPitts program defstructs.]. 
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creations of thase data structures.4 The functions that are implemented in 
the library are only constrained by the designer's imagination and a bit- 
slice regime. 

The library is used by the lookup-<> function to correlate a function 
name found in a <MacPitts program> with an already created functional form. 
This can be shown in a simple example. Assume that the library is: 


-> (setq library ‘((library)(constant t (nor)) 
(function 1+ ...)(test = ...))}<CR> 


Then the equality test, =, can be found as follows: 


-> (lookup-test ‘= library)<CR> 
;; Find the “ = “test definition form in the library. 
(test =...) 


In summary, MacPitts relies heavily on defstructs. 4 <MacPitts 
program> is parsed and converted into a defstruct called an object. The 
five portions of this object are then converted into LS by different 
programs. A particular set of layout functional units is included as 4 
defstruct which contains information relating the unit to MacPitts’ syntax 
in the library. A corresponding LS layout of the unit is found in organelles.!. 
LS in turn is a language composed of defstructs and layout operators. 

With the general idea in mind of how MacPitts coordinates its various 
parts to produce a chip, consideration is next given to modifying an 


organelle and implementing it functionally. 


4 In Section V1I.B an example will be traced all the way from the layout to 
the test definition. 
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(defstruct definition 

library 0 

logo (text) 

word-length (value) 

eval (when lisp-form) 

power (pin#) 

ground (pin*) 

phia (pin) 

phib (pin#) 

phic (pin*) 

register (name) 

flag (name) 

signal (name direction pin*) 

port (name direction pin*#s) 

process (name) 

macro (name type lisp-form) 

constant (name value) 

organelle 

(name *controali-lines *parameters 
#test-lines result? gen-form 
sim-form) 

function (name organelle-name types 
control-lines parameters 
interpret-form) 

test (name organelle-name types control- 
lines parameters test-Jine 
interpret-form) 

label (name process state) 

source (name) 

destination (name)) 


Figure 6.3 definition defstruct 
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B. AN EXAMPLE 

The organelle used in this example was designed by Lieutenant Anthony 
Mullarky using Magic. The approach used was based on (Fox, 1983, p. 32). 
Like Fox, a modification was made to the equality test organelle to reduce 
its size and increase its speed. The organelle is implemented so that its 
result pulls down the output Bus to Yss when the test fails. Two different 
cells are used: bit, and a Dity. The zero bit organelle is a one bit equality 
checker tied to Vdd in order to precharge the output bus to +5 Volts. The Nth 
bit organelle is a one bit equality tester without a pullup. The appellation ~ 
== "is used to differentiate this equality test from MacPitts' *=°. 

The first items needed are an organelle-==-bit-0 and organelie- 
bit-==-bit-m. The organelles were made using Magic and output as CIF. The 
CIF was converter to Caesar format and then into LS format. The two 
organelles are shown in Figures 6.4 and 6.5. 

These two organelles are then incorporated into the standard MacPitts 
library. Organelles.), the compiled portion of the library, is composed of a 
default set of MacPitts functional units in LS format. Adders, decrementers, 
equality testers, etc., are all located in organelles.1. The LS layouts are 
usually defsymbols and have a name of the form: lagout-<x>-oarganelle. 
The two basic zero and Nth bit items were made into def symbols without 
any arguments. 


(defun laygout-==-organelle (ratio bit) 
:; Doesnt use the ratio input. 
(cond ((=0 bit)(organelle-==-bit-0)) 
(t (organelle-==-bit-n)))) 
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Once this modification is made, then an organelle data structure is 
created and placed into the library [uncompiled]. Recall that an organelle is 
a specific case of a definition defstruct. [Refer to Appendix Al 


(organelle == 0 2 1 no . 

; <name> ‘= ==, <*control-lines> := 0, <*parameters> := 2 

: <*¥test-lines> := 1, <result?> := no, 

;, The <gen-form> field follows, notice that it is a 

;; functional form. The <gen-form> is obtained by the 

;; look-up-gen-form function. layout-gen-form creates it. 

:- So, if this whole data structure is set to ==-test: 

;, -> (setg ==-test ‘(organelle == 0 2 1 no (lambda... |] 

;; and the gen-form is extracted and named “ create °, 

,;7>(setq create (organelle-definition-gen-form ==-test)) 

;, -> (apply create ‘(instantiate 0 nil nil nil)) 

;; Will create an instantiation of the organelle’s bit Zero. 
(lambda (info bit word-length drive ratio) 
(cond 

((eq info ‘instantiate) 
(first-quadrant 
(mirrors (lagout-==-organelle ratio bit)))) 
({eq info ‘length) 58) 
({eq info ‘width) 40) 
({eq info ‘inputs) ‘(26 31)) 
({eq info ‘output-tgpe) ‘(ratio)) 
((eq info ‘vdd) '(43)) 
({eq info ‘gnd) ‘(8 28)) 
((eq info ‘dalsy) '(51)) 
((eq info ‘test) '(51)) 
((eq info ‘conductivity) 
(cond 
((equal ratio ‘(4 4)) (quotient 1 0.7759)) 
((equal ratio ‘(3 8)) (quotient 1 0.7604)) 
(t (quotient 1 0.7529)))) 
({(eq info '*transistors) ‘(9 5)) 
(t ())) 

;; The <sim-form> is used by the simulator. 

(lambda (c a b)(list (cond ((== a b) 
"(1)) Ct 'C0))) ODD) 
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Since “ == “ is a <test> operator, a test form is created to give the 


organelle functionality. This form is placed in the library along with the 
organelle data structure. The code for <test> “ == ° is: 


(test == == (integer integer) () 
;, <name> := ==, <organelle> := ==, 
;; <types> := (integer integer), <control-lines> := nil 
:; parameters» := ((position 1)(position 2)) 
;; <test-line> := (physical 1) 
({(position 1) (position 2)) (physical 1) 
;, <interpret-form> follows: 
(lambda (form word-ltength x y) 
(cond ((or (eq # ‘undefined-integer) 
(eq y ‘undefined-integer)) 
‘undefined-boolean) 
((= # y) ‘t) 
(t ‘f)))) 


A MacPitts program is now run to check this new operator [Figure 6.6]. 


(program five== 4 
;, Example of a MACPITTS algorithm to test a 4-bit 
;, Integer’s equality with the number five. 
3; <filename> := five==.mac 
(def 11 power) 
(def 1 ground) 
(def 2 phia) 
(def 3 phib) 
(def 4 phic) 
(def in port input (5 6 7 8)) 
(def out signal output 9) 
;; & reset pin is needed to initialize the chip. 
(def reset signal input 10) 
(process equality 0 
first 
(cond 
3 If “in” is“ <=" to 5 then set * out “ to t. 
((== in 5)(setq out t)(go first)) 
;; Otherwise, test “in” again. 
(t (go first)) ))) 
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The program was run with “=” and is shown below for comparison 
with Figure 6.6. 
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In summary, 4 MacPitts’ functional unit was modified and the changes 
made at different levels were examined. The new “ == “ unit was 


significantly smaller that the standard equality organelle. 
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Vil. CONCLUSIONS 


This thesis goal was to examine LS and show how it is used in two 
Silicon compilers: LBS and MacPitts. The thesis showed that L5 is an 
extension of LISP specifically aimed at VLSI synthesis. LISP’s ability to 
treat functions as data to create new operators:was found to De the basis 
for the versatile defstruct data structure generator. The main result of 
the thesis is the incorporation into one document of enough information to 
enable a VLSI designer to automate portions of the layout process or change 
existing MacPitts functions to meet other needs. 

For example, an examination of Los layout primitives and data 
structures showed its compatibility with Caesar and CIF. However, since the 
graphical editor now being used at the Naval Postgraduate School is Magic, a 
method for using this format with LS is needed. The suggested approach is 
to use the structure of LS programs that convert Caesar into LS and vice 
versa; and instead. make the conversion directly from CIF to LS. This would 
make available a larger pool of circuits which have been converted to CIF 
for incorporation into the compilers. Additionally, it would buffer the 
system from other changes in graphical editor file format since CIF is 4 
widely used format. 

Many possible changes to MacPitts have been recommended by Carison, 
Froede and Larrabee; among these suggestions, is to allow pin locations on 
all four sides of the chip. In light of what has been presented in this thesis 


this would be a fairly straightforward alteration. 
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The location of the bonding pads is controlled by the layout-pins 
function in the frame.) section of MacPitts. This program creates a frame 
that determines the architectural implementation of a MacPitts program. It 
places the different structural units into a Vdd/Vss skeleton and 
interconnects them. The input to its top level function, layout-object, 
accepts the object code generated by get-object in prepass.]. The main 
layout-object function in turn utilizes @ layout-pins function [also 
found in frame.l). & program that would place the pins for the user [at 
present they need to be specified) could be written. Other work could 
incorporate different routing schemes into frame.]. 

From this point onward, changes are only limited by the user's 


inventiveness. 
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APPENDIX A: MISCELLANEOUS TOPICS 


A. LAYOUT ERRORS 

There are two types of errors associated with layouts created from 
Macpitts: either the code has been improperly written, or the output CIF is 
being plotted at the wrong scale. 

An example of improper code is the erroneous specification of Vdd, Vss 
and output locations when 4 new organelle is created. In Section VI.B a new 
organelle, "==", was input into MacPitts. If different parameters [shown in 
Table A.1] had been specified in the organelle structure, then the results of 
Figure A.1 would result. Notice that the interconnecting lines have all 
shifted to the right 3 A units. | 


TABLE &.1 
ORGANELLE SPECIFICATION COMPARISON 
Correct Erroneous 
((eq info ‘length) 58) ((eq info ‘length) 52) 
((eq info ‘width) 40) ((eq info ‘width) 40) 
((eq info ‘inputs) ‘(26 31)) ((eq info ‘inputs) ‘(26 31)) 
((eq info ‘vdd) '(43))} ((eq info ‘vdd) ‘(40)} 


({eq info ‘gnd) ‘(8 28)) ((eq info ‘gnd) ‘(5 25)) 
({eq info ‘daisy) ‘(51)) ({eq info ‘daisy) '(48)) 
((eq info ‘test) '(51)) ((eq info ‘test) ‘(48)) 


Additionally, the organelle length was specified to be several A units 
longer than the layout actually is, to prevent the output line (when routed 


to the Weinberger array) from shorting with the clock lines [See Figure A.2]. 
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Figure A.1 five==.mac With an Incorrect Organelle Specification 
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Figure 4.2 fiye==.mac Organelle Detail 


[29 


The other error type which 1s encountered is due to improper use of CIF 
plotting routines. For example, if the minimum-feature-size has been 
set to 250 centi-u/A and plotted using cifplot (which defaults to 200 
centi-u/A), then plot misalignments will result. It should also be 
remembered that when on-disk storage is selected all items which are 
defsymbols are being created as CIF at the current minimum-feature- 
size. if the user should change the scale size in the middle of creating 
items, then the CIF files will be incompatible. 

Compare Figures A.3 and A4 In the first figure the pins from 
fivesmac were laid out without any data-path or controller. The 
connections from the clock lines can clearly be seen. This item was created 
using 200 centi-u/A and then plotted using cifplot at this same scale. 


Figure 4.4, on the other hand was plotted using 250 centi-p/A. 


B. EXPERIMENTING IN MACPITTS 

A quick look at the use of the layout-object function [in the frame. 
program] to modify pin locations is used as an introduction to future topics 
of investigation. 

It was seen in Section VI.C that the MacPitts environment is accessible 
because the top-level function is set up to do this as follows: 


> Macpitts 
usage: macpitts <filename> [<options>] 


[Return to top level] 
-> 
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Figure 4.4 fise=.mac Pins With Erroneous CIF Scale 
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IN.3 


IN.Z 


IN. 1 


IN.@ 


The user now has all of MacPitts available with the exception of the 
organelles and library. 

Instead of running MacPitts every time a change is made, the 
intermediate object code will be modified. Object code is generated when 
five==.mac is run in the following manner: 

*” macpitts obj cif noint noopt-c noopt-d 
nostat five==.mac @& > trash 


*Create an object and CIF file. Redirect comments 
*to.a trash file. 


Now, assuming that the macpitts environment has been invoked as 
shown above [(% macpitts], two local files that contain commands to 
change UNIX® directories and plot LS items are loaded. 


-> (include edit.1) 
[load edit.!] 
t 


-> (include plot.) 
[load plot.!] 
t 


-> (minimum-feature-size! 200) 
200 


The object file that was generated by MacPitts, five==.obj, is altered by 
setting its data-path and controller to mil. After editing is complete, the 
new file is called pin-test.obj and is shown below: 


-> (exec cat pin-test.obj) 

;, The first portion of the object is definitions 
(({(source reset) 

(register sequencer-equality-state) 
(source sequencer-equality-state) 
(destination sequencer-equality-state) 


leat 


(port sequencer-equality-next-state internal 
nil) 
(source sequencer-equality-next-state) 
(destination sequencer-equality-nert- state) 
(label first equality 0) 
(destination out) 
(source first) 
(source In) 
(logo five=) 
(word-length 4) 
(power 11) 
(ground 1) 
(phia 2) 
(phib 3) 
(phic 4) 
(port in input (5 6 7? 8)) 
(signal out output 9) 
(signal reset input 10) 
(process equality)) 
;; No flags were used in five==.mac 


nil 

;, The data-path portion of five==.0bj has been set to nil. 
nil 

;; The control segment has also been set to nil. 

nil 


;; The pin section of the object remains intact. 
((4 (phic)) 

(3 (phib)) 

(2 (phia)) 

(1 (ground)) 

(11 (power)) 

(9 (outputs out (signal-output out))) 

(5 (input (in 3) (port-input in 3))) 

(6 (input (in 2) (port-input in 2))) 

(7 (input (in 1) (port-input in 1))) 

(8 (input (in 0) (port-input in 0))) 

(10 (input reset (signal-input reset))))) 


This object is turned into an LS item by the layout-object function 


found in the frame.! program. 
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-> (thesis-plot (layout-object 
(read (infile ‘pin-test.obj))) ‘pin-test.obj t) 
- The standard statistics are output, except the control 
;; unit and daté path are empty. 
Statistic - Control has 0 columna~s 
Statistic —- Circuit has 78 transistors 
Statistic - Control has 0 tracks 
Statistic - Power consumption is 0.034114 
Watts ; . 
Statistic - Data-path internal bus uses 0 tracks 
Statistic - Dimensions are 1.640000 mm by 
1.718000 mm 
;; The rest of the output is related to the plotting 
3; function. 
-> Window: 0 164000 0 171800 
Scale: 1 micron is 0.002805 inches (71) 
The plot will be 0.38 feet 


This plot is shown in Figure 4.3. The object file is modified again to 
place the pins in different locations: 


-> (exec cat pin-test-2.obj) 
;; A random pin ordering was chosen. 
(({(source reset) 
(register sequencer-equality-state) 
(source sequencer-equality-state) 
(destination sequencer-equality-state) 
(port sequencer-equality-next-state internal 
nil) 
(source sequencer-equality-next-state) 
(destination sequencer-equality-next-state) 
(label first equality 0) 
(destination out) 
(source first) 
(source in) 
(logo five=) 
(word-length 4) 
(power 11) 
(ground 1) 
(phia 2) 
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(phib 5) 

(phic 10) 

(port in input (3 4 7 9)) 

(signal out output 8) 

(signal reset input 6) 

(process equality)) 

nil 

nil 

nil 

((10 (phic)) 

(5 (phib)) 

(2 (phia)) 

(1 (ground)) 

(11 (power)) 

(8 (output8 out (signai-output out))) 
(9 (input (in 3) (port-input in 3))) 

(7 (input (in 2) (port-input in 2))) 

(4 (input (in 1) (port-input in 1))) 

(3 (input (in 0) (port-input in 0))) 

(6 (input reset (signai-input reset))))) 


The results of this change in pin locations is shown in Figure A.5. The 
intent is not that the user make tedious changes to object code to optimize 
pin layout; but rather, that this process be automated or modified for other 
packaging schemes. 

In summary, this appendix described some observed errors that the user 


Should avoid and introduced an area for future work. 
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Figure 4.5 five=.mac Modified Pins. 
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